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FOREWORD 


This Final Report provides the results obtained in the Shuttle Cryogenics Supply 
System Optimization Study, NAS 9-11330, performed by Lockheed Missiles & Space 
Company (LMSC) under contract to the National Aeronautics and Space Administration, 
Manned Spacecraft Center, Houston, Texas. The study was under the technical direc- 
tion of Mr. T. L. Davies, Cryogenics Section of the Power Generation Branch, Pro- 
pulsion and Power Division. Technical effort producing these results was performed 
in the period from October 1970 to June 1973. 


The Final Report is published in eleven volumes*: 


Volume I 

Volumes II, III, and IV 

Volumes VA-1 and VA-2 

Volumes VB-1, VB-2, 
VB-3, and VB-4 

Volume VI 


Executive Summary 

Technical Report 

Math Model — Users Manual 

Math Model — Programmers 
Manual 

Appendixes 


The LMSC Staff participants are as follows: 


Study Manager 

L. L. Morgan 

Subsystem Evaluations 

C. J. Rudey 

D. P. Burkholder 
C. F. Merlet 

W. H. Brewington 

Integrated Systems 

H. L. Jensen 

Component Analyses 

B. R. Bullard 
F. L. Bishop 

Thermodynamics 

G. E. Heuer 
R. M. Vernon 
J. Gries 
D. R. Elgin 


*The Table of Contents for all volumes appears in Volume I only. Section 12 in 
Volume III contains the List of References for Volumes I through IV. 
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Thermal Protection 
Fluid Dynamics 
Propellant Acquisition 
Design 

Structural Analysis 

Instrume ntation 
Reusability/Reliability 
Failure Modes and Effect Analyses 
Requirements and Criteria 
Safety and Mission Completion 
Math Model 


G. E. Heuer 
R. Cima 

D. P. Burkholder 
R. Cima 

M. P. Hollister 
R. K. Grove 

R. A. Michael 

M. L. Vaughn 

C. C. Richie 

R. R. Gaura 
R. F. Hausman 

D. C. Saunders 

C. F. Merlet 

C. F. Merlet 

R. F. Hausman 
J. McKay 


Cryogenic Cooling Subtask 
Subsystem Evaluation 
Component Analyses 

Thermodynamic s 
Thermal Protection 


H. L. Jensen 

G. Heuer 
AiResearch 

R. Cima 

G. E. Heuer 
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APPENDIX A 
FLOW CHART SYMBOLS 


SYMBOL DEFINITION 



SUBPROGRAM REFERENCE 


PROCESSING FUNCTION 


PREPARATION FUNCTION 




DECISION FUNCTION 


TAPE OR FILE INPUT 
OR OUTPUT 



CARD INPUT 


FLOW DIRECTOR 




-OFF- PAGE .STEP CONNECTOR 


A-l 
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Appendix B 

THE CRYOGENIC INTEGRATED MATH MODEL 

(TCIMM) 


PARTI - PROGRAM LISTING 


The program listing presented in the following pages was produced using the EXEC -8 
LISTALL processor which lists a file in alphabetical order. Since the processor does 
not differentiate between subroutines , functions and Procedure Definition Processors 
(PDPs) , each subprogram has been relabeled to clearly identify the type of symbolic 
listing presented. 

The alphabetical listing permits rapid list scanning when searching for a particular 
subprogram. 

While symbolic listings are quite useful in understanding the coding of a particular 
subprogram , it is recommended that the program user create and maintain a standard 
compiler listing output file, since the additional information provided by the compiler 
is very useful in troubleshooting and debugging changes to the basic coding. 

The program list file follows: 
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******** SUWgUllNt ACCRES 


r 

2 

C 

C 

?*••# ■* * r* .*# * 

* ROUTINE NAME 

:* ■* * ■** ■* 

- ACCUMULATOR RESIDUALS 

i 

:C 


DETERMINATION ROUTINE '* 

4 

c 

'*• ROUTINE LANS 

- FORTRAN V UNIVAC 1108 EXEC 2* 

5 

c 

■* PROGRAMMER 

- R, BOLLINGER 1941 |02 26911 * 

6 

c 

■*■ DATE COOED 

- 5/ 1 S/TO * 

7 

c 

'* REVISED 

- JULY 1**72 * 

8 

c 

’*• PROGRAMMER 

- J, MCKAY D 1 941 201 HSIT8 * 

9 

c 

* ■*■..*»* 


tc 

c 



II 


subroutine accres 


12 

c 



11 


INCLUDE CACCUM 


14 

c 



15 


00 100 IGS=j t 2 


16 

:c 

FIND DENSITY 

OF GAS (RHOG) 

IT 


CALL GSDNST ' ( IGS* ATEMP ( IGS) * A PRES ( IGS) , RHOG) 

IB 

:c 

CALCULATE WEIGHT OF GAS RESIDUALS 

19 


WGRACC(IGS) = RHOG * A VOL ( IGS )*NAOP( IGS) 

20 


100 CONTINUE 


21 

c 



22 


RETURN 


21 


END 




t 


****««*+ SUBR0UTINE ACQWT 


to 


2 

•4 

5 

6 

7 

8 
9 

10 
I I 
12 

17 

m 

is 

16 

IT 

18 

19 

20 
21 
22 
27 

24 

25 

26 

27 

28 
29 

70 

71 

72 
77 

74 

75 

76 

77 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 


c 


c 


>* ROUTINE Name - ACQUISITION SYSTEM WEIGHTS * 
•* DETERMINATION ROUTINE * 
■'* ROUTINE LANS - FORTRAN V UNI VAC l|0B EXEC 2* 
'* PPOORAMMER - R, BOLLINGER 1947 102 26977 * 
•* DATE CODED - S/20/70 *' 
•*■ REVISED - JULY 1972 * 
■* PROGRAMMER - J. MCKAY DI947 201 4SI78 * 

r* «**««**** * «*»«*******• ft 


SUBROUTINE ACOWT 

INCLUDE CCNF1G 
INCLUDE CTANK 

DIMENSION CST (2*7) 

DATA (CST ( I # I ) . 1=1.2) / I007S *.0777 / 

DATA (CST ( I .2) « 1=1 f 21 / .0027S. ,01 / 

DATA (CST(I,7).I=I.2) / .002S ..007429 / 

***** THERE ARE 7 TyPES OF ACQUISITION DEVICES. 

. IDX X t SURFACE TENSION DEVICE 

IDX = 2 POSITIVE DIS’LACEMENT DEVICE 

IDX s 3 DIELECTROPHORETIC DEVICE 


DO 1000 II := 1.2 
IDX e SATYPEI 1 1 I 

HTACftdl.I) = CSTUI.IOX) * NPTOT(II) 

I0X = INOXTK ( 1 1 I 

HEIGHT ( IDX) = WEIGHT (T0X7 ♦ WTACQ(II.I) 

000 CONTINUE 

PRINT ACQUISITION SYSTEM WEI6HT5 

CALL OTPACQ 

RETURN 

END 
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******** SUBR0UTINE ALPHAS 


| SUBROUTINE ALPHAS (0B»D I BfTMODB) 

8 C 

? C CALCULATES ISOTHERMAL BULK MODULUS FROM THE E8UATI0N OP STATE 

if C IN BRITISH UNITS 

«; C MUST FOLLOW CALLS OF PROPB AND DPDBB TO DEFINE. 0 AND D! 

4 C INPUT AND OUTPUT PARAMETERS ARE IN BRITISH UNITS 

7 C 

8 TMODBs-DB*D|B 

9 RETURN 

10 END 


W 

I 
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I 

I 


I 


••**•••* sUbR^UtINe 




9 

id 

n 
1 2 
II 

14 

15 

16 

17 

18 

19 

20 
21 
22 
21 
24 
2«5 
26 

27 

28 
29 
10 

11 

12 
11 

14 

15 

16 

17 

18 
19 

40 

41 

42 
41 

44 

45 

46 

47 

48 


subroutine apUfL8 

INCLUDE CAPU 
INCLUDE CCNTRl 
INcLilOE COCYCL 
INCLUDE CENG 
INCLUDE CIOUNT 
INCLUDE CMATRL 
INCLUDE TASLOk 

c 

c *AA**A*«***A****AAA9AAA*AA*A«**A*AA*A*AA**A*A*A«A*A***A**AAAAA***A*** 
c 

c find percent power for each duty cycle point 
c 

TOTHPR a UPR*NAPU 
DO 200 IX = I tKCYCLE 

PCIHP(IX) c 1100.0 * NEOP(IX) * MPtlXh /TOTHPR 
200 CONTINUE 
C 

c ****** A************************************************************** 

c 

C CALCULATE PROPELLANT TEMPERATURE AT APU GAS GENERATOR INLET 
C 

IF<m - 2060.01 20S»20S,2I0 
20S TPF a (1.17 - FMR) /.000S61 
GO TO 2 1 S 

210 TPF = (1,27 - FMRJ/.000SS6 

C 

C ****** ******************************************* ******************** 

c 

C SELECT THE PROPER COEFFICIENTS FOR COMPUTING THE REFERENCE PROPELLANT 
C FLOW RATE. 

C 

2 1 5 IF(P6G - 900.0} 216,220.2)6 

216 IF(PGG - 600.0) 2|7,22S,2|T 

2 1 7 IF(PGG .» 100.0) 218,210,218 
C 

C ERROR IN THE SPECIFICATION OF PGG, 

C 

218 hRITE(6,2S) PGG 

2S FORMAT (T I 0 , * PGG IS SPECIFIED INCORRECTLY. PGG = ',F8.2.//) 

CALL EXIT 
220 M = 0 

RRFP a 8 .'70 
GO TO 240 
22S M = I 

RRFP = 9,10 
GO TO 240 


49 210 M = 2 

, SO RRFP = 10, ST 

S| 240 CONTINUE 


I S4 C 

SS C COMPUTE THE REFERENCE PROPELLANT FLOW RATE IN POUNDS PER MINUTE AND 

1 S6 C THE CORRECTION FACTOR FOR THE REFERENCE PROPELLANT FLOW RATE WHEN 

St C TIT = 2060 DEGREES R. 
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******** APUFLO - ******** 


*3 8 

C 



59 


Cl a 1,0,9 ••PHR 


60 


C2 a 1.0.4 (t.O/FHA) 


61 


HOT s 0,0 


62 


HTBURN = 0.0 


61 


T1PWT = 0,0 


64 


HOOT ■# 0,0 


65 


! B 0 


66 


00 260 Jl = 1 »NDCYCL»2 


67 


1 = I ♦ 1 


68 


IP ! DCYCLE ( J I ) ) ,260* 


69 

C 



70 

c 

LOOK UP PR VS PCTHP 


71 

c 



72 


CALL FINTAB (NTBID(I)) 


7V 


X7AB( 1 ) -s PGG 


74 


.XTAB ( 2 1 = FMR 


75 


XTA8 ( 7 ) = PAMB(I) 


76 


XTAB ( 4 ) = PCTHP(I) 


77 


RR(J) s. HIPE(4,XTABj 


78 

c 



79 

c 

CHECK TO SEE IF CORRECTION FACTOR IS NECESSARY 


80 

c 



61 


IF(TIT -2060.0) 250,245,250 


82 

:c 



87 

c 

LOOK UP CORRECTION FACTOR KK VS PCTHP 


84 

c 



85 


245 CALL FINTAB (NTBID<4>) 


86 


KK ( I J = HIPE(4,XTAB) 


87 


RR(I) = RR(II » KKIII 


88 


250 CONTINUE 


89 

c 



90 

c 



91 

c 



92 

c 

COMPUTE THE -TOTAL PROPELLANT' FLOW RATE OVER EACH CONSTANT 

POWER TIME 

97 

c 

INTERVAL IN LBS/MIN, AND COMPUTE THE TOTAL PROPELLANT USED 

OVER THE 

94 

c 

ENTIRE DUTY :CYCLE, 


95 

c 



96 


WD ( I ) = (TOTHPR * RRCDJ/IOO.O 


97 


HOOT | s WD II) 


98 


TIPWT = TIPHT ♦ HDOTI * DCYCLE(JI) 


99 


WD0TJ( 1,2) :s (HOOTI/CI )/60.0 


100 


WDOTJ( 1,1) x WDOTI/60,0- WDOTJI1.2) 


lot 


IF(NE0P(I).LT,0) GO TO 260 


102 


WOOT ;S AMAX | (HOOT, HOOT 1 ) 


107 


HTBURN = HTBURN HD(I) * OCYCLE(JI) 


104 

c 



105 

c 

SET CONTINGENCY QUANTITY OF TOTAL PROPELLANT' FOR RESERVE 

106 

c 



107 


HOT s 1.1 * wTBURN 


(08 

c 



109 

c 

CALCULATE THE WEIGHT RaTE OF H2. AND 02 FLOWING DURING THE 

TIME PERIOD 

no 

c 

THETA ( I ) IN LBS/MIN, 


1 1 1 

c 



1 12 


WORH(I) e WD(!)/CI 


111 


HDRO(I) = HD < I } /C2 

- 

1 14 


260 CONTINUE 


115 

c 




LMSC-A991396 


APUFLO 


l 


i 


I 16 

C 

1 IT 

C 

118 


119 


120 

C 

121 


122 


121 

C 

1 24 

C 

I2S 

C 

(26 

C 

1 27 

C 

128 

c 

129 

c 

110 


111 


112 


in 


114 

c 

ns 

c 

116 

c 

117 

c 

ns 


119 


140 


141 

c 

142 

c 

141 

c 

144 

c 

I4S 

c 

146 


147 

c 

148 


149 

c 

ISO 



CALCULATE the TOTAL H2 AND 02 DELIVERED TO APU CAS GENERATOR IN LBSl 
WDH s HDT/CI 

HOOT 1(2) s fW00T/CI)/60.6 
WOO s W0T/C2 

WOOTI(I) :s KDOT/60.0 - WD07K2) 


determine APU EXHAUST GAS TEMPERATURE DURING power time interval 
THETA!!). first COMPUTE the SPECIFIC HEAT CAPACITY of the COMBUSTION 
PRODUCTS AS A FUNCTION Op MIXTURE RATIO AND TURBINE INLET TEMPERATURE 

CALL CSUBPI (TIT.FMR.CP) 

00 40S I = | f KCYCLE 

TE(1) = TIT - <(42.42 * NEOPtl) * HP(I)) /( WDt!) * CP)) 

TME = (TE( I j ♦ TDJ/2.0 

COMPUTE THE SPECIFIC HEAT OF COMBUSTION PRODUCTS AS A FUNCTION OF 
MIXTURE RATIO AND TEMPERATURE OF EXHAUST GASES. 

CALL CSUBPI (TME, FMR,CPE(I) ) 
ntn = CPE ( X )* (TE( X ) - TD) 

40S CONTINUE 

•A******************************************************************* 

***** OUTPUT THE DATA ***** 

CALL OPAPUF (KCYCLE) 

RETURN 

END 
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SUBR0UTINE APUSUB 


W 

I 

oo 


1 

2 
7 
4 
■5 
6 
7 
B 
9 

10 

11 

12 

n 

14 

I *5 
16 

17 

18 

19 

20 
21 
22 
21 
24 
29 
26 

27 

28 
29 
10 

II 
12 
11 
14 
19 
16 
.17 
18 
19 

40 

41 

42 
47 
44 
49 

46 

47 

48 

49 

90 

91 

92 
97 
94 
99 

96 

97 


SUBROUTINE APUSUB 

C 

c 

INCLUDE CACCUM 
INCLUDE CAPU 
INCLUDE CDCYCL 
INCLUDE CEIIG 
INCLUDE CIOUHT 
INCLUDE CPUI!P 
INCLUDE .C7ANK 
C 

c ********************************************************************* 

c 

C BEGIN COMPUTATIONS FOR SUBCRITICAL STORAGE 
C 

c ********************************************************************* 

c 

C SET SELECTED VARIARLES FROM INPUT DATA 
C 

TAH =: ATEKP ( 2 1 
TAO s ATEMP ( I ) 

TSTH s SITEUP(2«lj 
TSTO s SITEUPd.lJ 
PSTH s SOPRES ( 2* I ) 

PSTO s SOPRES(I.I) 

X .... 

C ********************************************************************* 

c 

C SUE heat EXCHANGER between Ha accumulator and apu gas generator 

c 

CALL CSUBP(TPF,PGG»2«CPSAH) 

CALL CSUBP (TPF*PGG,|«CPSAO) 

Cl = CPSAH*(TPE - TAH) 

C2 = CPSAO*<TPE - TAO) 

DO 610 I '= I fKCYCLE 
OMHOOTd) = WDRH(H*CI 
06000T ( I ) = WDR0(U*C2 
WDG(l) = 041 IDOT ( I ) /D( I ) 

610 WDJ(I) = G60D0T ( I ) /Dt I ) 

X 

c ************************************************************ ********* 

c 

C 

C COMPUTE THE TEMPERATURES OF THE EXHAUST GASES FROM THE H2 AND 02 
C CONDITIONING GAS GENERATORS; 

C .... 

TGGCH = (MRGGCM ♦ ,00096*TAH ♦ . 096 > » I 000 . 0/. 99 1 
TGGCO e (MRGGCO ♦ ,00096*TAH , 096) *1 000.0/. 99 1 

C 

C ****** ********************************* ****************************** 

c 

c SET THE TEMPERATURE OF THE GASES AT DISCHARGE FROM THE PUHP EQUAL TO 
C THE TEMPERATURE OF THE GaS IN THE STORAGE TANK. 

C 

TPDH = TSTH 
TPDO .s TSTO 
C 
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APUSUB •*****«♦* 

c ********************************************************************* 
c 

C SIZE H2 and 02 HEAT EXCHANGER BETWEEN THE RUMPS AND ACCUMULATORS 
C 

HAH b HYENTH(PPDCH(2)|TAH) 

HPH a HVENTH(PPDCH(2) tTPDHI 
HAO s OXENTHI PPOCHf I )*TAO) 

HPO B OXEUTH(PPDCH( I ) » TPOO ) 

THE S (TGGCO ♦ TOGGO 1/2.0 
CALL CSUBpI (TME.HRGGCO.CPGGO) 

Cl = <1.0 ♦ MRGGCO)*CPGGO*(TOGCO « TOGGO} 

A I « ((HAO - HPO)*MRGGCO)/C| 

AE S (HAO • HPOt/Cl 

THE a (TGGCII ♦ TDGGH)/2.0 

CALL CSU8PI (TME.MRGGCH.CPGGHj 

C2 * { t « 0 ♦ MnGGCH)*CPGGH*(T8GCH « TDGGH} 

AM a (HAH - HPHI/C2 
AT a flM*HRGGCH 

Cl t ( A 1 •+ A4> + |A2*A1) - i A I *AH) - ».D 

C2 a (AI*AH) - <A2*A1) - AM 

Cl 3 ( A I *AM ) - (A2*A1) - A I 

DO 650 I s I.KCYCLE 

HGGH(I) = (WPRH( 1 ) *C2 - WDR0(I)*A2)/CI 
HGGO(I) .= (WDR0M)*C1 - WORHI 1 )*A1 )/C I 
05HD0T ( I ) c ( WDRH ( I ) ♦ HGGH(in*(HAH - HPH j 
070D0T(I) S (WORO(I) ♦ WGGO(I))*(HAO » HPO) 

650 CONTINUE 

:c 

C ****** A************************************************************** 

c 

C COMPUTE THE TOTAL WEIGHT OF H2 AND 02 NEEDED FOR THE H2 AND 02 
C CONDITIONING GAS GENERATORS. 

C 

HTGGH -e 0,0 

HTGGO s 0.0 

1=0 

DO 660 II * I tN0CYCL»2 
I s I ♦ | 

WTGGH S WTGGH ♦ WGGH(I) * DCYCLEIIlj 

WTGGO a WTGGO ♦ WGGO(I) * DCYCLE(II) 

660 CONTINUE 
C 

.c ********* ******************** **************************************** 
c 

C CALCULATE THE VOLUMES OF THE H2 AND 02 STORAGE TANKS, 

C 

CALL RH0LI0(TSTH,2,RH0LH} 

CALL RHOLIQ(TSTO, I .RHOLO) 

C 

c 

CALL GSDNST (2»TSTH,PSTH. RHOGH) 

CALL GSDNST ( I , TSTO* PSTO, RHOGO ) 

C 

c * ■*'•* 

c WEIGHT OF H2 REQD, TO ABSORB H 2 TANK HEATLEAK 

C * .* 

c 

TAUSUM =0.0 
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*****»*»■ APUSUB 


I ! 6 
117 
I 18 
i 19 
120 
121 
122 
121 
I 24 

1 25 

126 
127 
126 
129 
1 10 
111 
112 
HI 
114 
H5 
116 

117 

118 
119 
I MO 

141 

142 
141 
I 44 

1 45 

146 

147 

148 

149 

150 

151 

152 
151 

154 

155 

156 

157 

158 

159 

160 
j 6 1 
162 
161 
164 

i 65- 

166 

167 

i 68 

169 

I 70 

I7| 

172 

171 


DO 661 II a 2.N0CYCL.2 

IFIOCYCLEUm 661 .* 

TAUSUM = 'TAUSUM ♦ OCYCL£(IU( I 
661 CONTINUE 

TAUSUM a TAUSUM/60. 

VESTH = ( (WOH ♦ WTGGH ) / (RH0LH“RHQ6W j (*l , 01 
AREATHa 4.84 * ( VESTH**i667) 

TSA7LV s' PSATH(PSTH.HG.HL) 

DF.LHV a (HG - HU) 

CAUL TC0ND(TENV*TSTH.SNBAR(2) .SITHIK (2. I ) .SITYPE ( 2* j i .Q7HD0T) 
WSVHII a ( | ,0/DELHV>*(QTHD0T<*AREATH»7AU5UM) 

c * * « 

C WEIGHT OF H2 RESO. TO ABSORB 02 TANK HEATLEAK 
C * ■* * 

DELTH2 a (TSTO - TSTH) 

C ALL. CSUBP CTSTO.PSTo. 2. CPH I ) 

CA|.l CSUBp (TSTH.PSTH.2.CPII2) 

AVGCPH a (CPHI ♦ CPH2)/2;0 

DELHOT a DELTH2 * AVGCPH 

VESTO a ((WOO ♦ WTGGO ) / ( RHOLO“RHOGO) 1*1.01 

AREATO a 4. e 4 ■* ( VESTO**. 667 > 

CALL TC01ID(TFHV.TST0,SNBAR( I ) .SITHIK( 1 , I ) .SITyPEI I . I > *070007} 
WSVHO a ( I .0/OELHDT)*(QTOOOT«AREATO*TAUSUM) 

I F ( WSVHM, GE.WSVHO ) WSVH = WSVHH 
IF(WSVHH.LT.WSVHO) WSVH a WSVHO 

c 

VSTH S ( (wOH*WTGGH+wSvH)/(RHOUH-RHOGH) )»| . 07 
AREATH a 4.84 * ( VSTH**0 . 667 ) 

VSTO a ( (WDO+WTGGO)/(RHOLO-RHOGO) )«t.01 

c 

WPTOT ( 2 ) -C WOH ♦ WTGGH ♦ WSVH 
WPTTH a WPTOT ( 2 ) 

WPTOT ( I ) 3 WOO ♦ WTGGO 
WPTTO a WPTOT ( I ) 

c 

C ****************** ******** Hi,***** ********************************** 
C 

C CALCULATE THE wIEGHT OF THE H2 AND 02 storage tank residual 
c propellants. 
c 
c 

WSPH = RHOGH * vSTH 
WSRO a RHOGO * VSTO 

C 

C ******************************************************************* 

c 

C CALCULATE the WEIGHT OF H2 AND 02 ACCUMULATOR RESIDUAL PROPELLANTS. 
C 

CALL ZFIND{TPF,PPDCH!2).2,ZSAH) 

CALL ZFIND(TAH f PGG.2.ZSAHE) 

ZSAO - ZGET ( TPF . PPDCH t I j * I ) 

ZSAOE a ZGET ( TAo . PGG* I ) 

Cl a (PPDCH ( 2 ) /ZSAH j - (PGG/ZSAHE) 

C2 = (PPDCH( I J/ZSAO) .. (PGG/ZSAOE) 

.C CALC. CAPICITY OF A.CCUM. 

WSIIB a (HpR*RRFP)/( 1 8000 1 0* ( I.O+FMR) ) 

WSOB = <HPR*RRFP)/< I8000,0*( I . 0+ ( I ,0/FMR) ) j 
C 
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**««*•«* APU5UB -A*******- 

l?M WRS4H s (WSH8*P66j/(Cin5AMEj 

US WRS&0 = (V!SOe*P«GJ/(C2*t5fcOE> 

176 C 

|7T C ♦A******************************************************************* 

1 ITS C 

1 179 C ***** ACCUMULATOR VOLUME IS INPUT ***** 

: ISO C 

I B | C ********************************************************************* 

162 C 

1 81 C ********************************************************************* 

: 164 C 

1 85 C OUTPUT THE DATA 

i 186 C 

|BT C ********************************************************************* 

IBS C 

189 CALL OAPUSB IKCYCLE) 

190 C 

I 9 | WRITE (I0T»999) 

192 999 FORMATI/////T10, '***** THE APU SUBCRtTICAL CALCULATIONS HAVE BEEN 

191 | COMPLETED ****♦') 

• 194 C 

1 9S C 

1 (96 667 CONTINUE 

1 97 C 

198 RETURN 

199 C 

200 END 
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SUBR0UTJNH APUSUP 


td 

i 


to 


1 SUBROUTINE APUSUP 

2 C 

1 c 

4 REAL K7* K8* Kll 

s c 

6 include caccum 


7 



INCLUDE CAPU 




8 



INCLUDE CCIITRL 




9 



INCLUDE CDCVCL 




10 



INCLUDE CENG 




II 



include cfuel 




1 2 



include chex 




11 



include ClOUNT 




IK 



INCLUDE CMATRL 




IS 



INCLUDE CONST 




16 



INCLUDE CPUMP 




IT 



INCLUDE CTANK 




18 



INCLUDE tablok 




19 

C 






20 



DIMENSION WD0Tx(MHX»2) 




21 

c 


EQUIVALENCE ( WVH02 1 WV 1 HO j t (HVHH2,WVIHH) 




22 






21 



EQUIVALENCE (WDOTCF.WDOTXI 




24 

c 






2S 

c 

**1 

************************************** *****1 

**** 1 

********1 


26 

c 






27 

c 


BEGIN COMPUTATIONS FOR SUPERCRITICAL STORAGE 



28 

c 






29 

c 

.•*1 


»***1 



10 

c 






11 

c 

SET SELECTED VARIABLES FROM INPUT DATA 




12 

c 






11 



TAH s ATEMP ( 2 ) 




14 



TAD = ATEMP( 1 ) 




IS 



PCH .s SOPRES ( 2* 1 ) 




16 



PCO = SOPRES ( 1*1) 




IT 

c 






18 

- c 

- **< 

*************** ****************************4 

**♦*4 



19 

c 






40 

c 

size hz heat exchanger between H2 accumulator 

AND 

APU GAS 

GENERATOR^ 

4| 

c 





42 


406 

HPH = HYENTII(PCH,TPF) 




41 



HAH := HYENTH(PCHfTAH) 




44 



HPO r OXENTH(PCO.TPF) 




4S 



HAO = OXENTtl (PCO, TAG) 




46 



DO 410 I s | .KCYCLE 




47 



Q 1 HOOT ( I ) S WDRH( I)*<HPH - HAH) 




48 



WDA(I) = 0 1 HOOT ( I ) /D ( I > 




49 

c 






SO 

c 

**4 


»***< 



SI 

c 






S2 

c 






SI 

c 

size oz heat exchanger between oa accumulator 

AND 

APU GAS 

generator; 

S4 

c 






SS 



QIOOOTU) = WORO(I)*(HPO - HAO) 




S6 



WDD(I) = QI0DOT(I)/D(I) 




S7 


410 

CONTINUE 
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APUSUP 


a 

i 


CO 


****««**' 


! <56 

C 

S9 

c 

60 

c 

' -61 

c 

62 

c 

4V 

c 

64 

c 

6S 


66 


67 


68 


69 

c 

70 


! 71 


72 


71 


74 

G 

7S 

C 

T6 

C 

77 


78 


79 

c 

80 

c 

81 

c 

82 

c 

81 

c 

84 


as 


86 


87 


88 


89 


90 


91 

c 

92 


91 

c 

94 


9S 

c 

96 

c- 

97 

c 

98 

c 

99 


100 


101 


102 


101 


104 


I0S 

c 

j 06 

c 

107 

c 

108 


109 


1 10 


1 1 1 


i 12 

c 

111 

c 

1 14 

c 

l IS 

c 


OETWIMNE. IWtTlM. TM^ TEMPERATURES. 

CALL FINTAB(NT8!D(8) ) 

XTAB ( I ) = PCO 
XTAB (2 ) = TO. 126 
TEMP02 =. MIPE(2.XTAB) 

CALL FINTA8(NTBID(7)I 
XTAB ( | ) s PCH 
XTA B (2 ) = 4 • 36*5 
TEMPH2 c MIPEI2.XTAB) 

determine initial CSUBV VALUES fob tank t and P CONDITIONS 

CISBVO -r :CSURV(TEMP02*PC0* I } 

CISBVH = C5U8V ( TEMPH2. PCH* 2 ) 

COMPUTE the COMPRESSIBILITY OF H2 at TEMPERATURE tfh and pressure pfh 

COMPUTE THE COMPRESSIBILITY OF 02 AT TEMPERATURE TFO AND PRESSURE PFO 

TTTH :a 0.0 
TTTO :b 0.0 
TTHcWO ( I ) s 0.0 
TT02WD( I ) = 0.0 
1 = 0 

DO «S0 II s. I *MDCYCL*2 
1 = 1 + 1 

CALL ZFiNDCTFH,PFH,2»ZFH} 

ZFO = ZGET (TFOjPFO* I ) 

COMPUTE THE PERCENT OF USABLE H2 AND 02 WITHDRAWN UP TO THIS POINT 
IN THE MISSION 

TTTH = TTTH ♦ OCYCLEI 1 1 j * WORH(I) 

TTH2WDU) = TTTH 

TTTO = TTTO ♦ DCYCLEIIIJ * WDRO(I) 

TT02WD ( I ) = TTTO 
PCH2WDU) - TTH2W0 ( I ) /WDH 
PC02WDU) ‘5. TT02W0 ( I ) /WDO 

COMPUTE THE DENSITY OF H2 AND 02 AS A FUNCTION OF PERCENT WITHDRAWN; 

Cl = 1.0 - ((O.OW27*PFH)/(IFH*TFH)| 

C2 = 1.0 - ((O.OH2ST*PFO)/(ZFO*TFO)J 
RH0CH21 1 1 = 4.SSS * (1.0 - (PCH2WD(I) * CM) 

RHoCo2(I) = TO, 126 * (1.0 - (PC02W0(D * C2>) 

• •***• I*************************************************************** 

COMPUTE THE 'TEMPERATURE OF H2 IN STORAGE TANK DURING TIME INTERVAL 
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******** 

ARUSUP ******** 


16 

l« 


tntfA(i) AS a fUNtfibM bp dFMsIty Afcb cbtobttioNEb Pressure. 


1 
I 9 


CALL Flfjf AB (NTBitbtil) 

XTABjli s PCH 


20 


XJA8 ( 2 ) s RIIOCMalli 

121 


TTH ( I ) s KIPE(2,XTABI 


22 

C 

Compute the temperature of b 2 IN stORicfe tANk AS A PUnc+iom of 

! 

21 

C 

; 

29 

t 

0ENS1TV AND PRESSURE, 

I2S 

c 


126 


CALL FINTAB ( llTBtDl 8l ) 

127 


XTAB ( | | s PCO 

IPS 


XTA9 ( 2 I = RH0C02 (I ) 

129 


TTO(I) = MIPE ( 2 tXTAB) 

no 

c 


111 

c 


112 

c 


111 

c 

COMPUTE SPECIFIC HEAT OF H2 AS A FUNCTION OF DENSITY ANO STORED 

119 

c 

PRESSURE. 


1 1*5 

c 



116 


CALL FINTAB (NTBlOm)) 


117 


XTAB ( 1 ) c PCH 


118 


XTAB (2 ) = RH0CH2M) 


119 


DOODHHII) S MIPE ( 2.XTAB ) 


mo 

c 


IMI 

c 

COMPUTE THE SPECIFIC HEAT OP 02 AS A FUNCTION OF DENSITY AND PRESSURE 


m 2 

c 

CALL PHTHOII(TTO( I ) ,RH0C02< I j * 1 .PHI. THETA) 


mi 



1 mm 


DOOOUO(I) -e THETA 


ms 

c 



196 

c 



197 

c 



198 

c 

- 


199 

c 

COMPUTE the REQUIRED FLOW RATE OF EXHAUST GASES THROUGH HEAT EXCHANGR 


ISO 

c 

BETWEEN H2 TANK ANO H2 ACCUMULATOR. 


mi 

c 



m2 


HTH(I) = HYENTM(PCH,TTH(I j ) 


mi 


G2H00T(lj := WDRH(I) » ( HAH - HTH( I ) ) 


IS9 


WOB(I) s 021 !DOT 1 1 ) /D ( I ) ~ - 


ms 


HTO(I) = OXCNTHIPCO.TTOd j ) 


|S6 

:c 



IS7 

c 

00 THE SAME FOR THE HEAT EXCHANGER BETWEEN THE 02 TANK AND 02 ACCUMU- 


IS8 

c 

LATOR, 


IS9 

c 

82000TU) = wORO(I) • j HAO - HTOIlh 


160 



1 6 j 


WDE(I) = Q20D0T( I ) /D( I j 


162 

c 



1 67 

c 

SUE H2 TANK HEAt EXCHaNGEr AND 02 T ANK HEAT EXCHANGER, 


169 

c 



I6S 


OIHDOT(I) = V)ORH(I)*DQODwH(I) 


166 


HOC ( I ) = OltIDOT ( I ) /D { 1 ) 


167 


QlODOT(I) = WORO ( I )*DQ0DW0 ( I ) 


168 


WOF < I ) s Q10D0T ( I ) /D( l ) 


169 

c 


170 


CSUBVO(I) e CSUBV(TTO( I ) .'PCO. 1 ) 


I7| 


CSUBVH(I) S CSUBV(TTH(I) t PCH»2) 


172 

c 



171 


CALL PHTHON ( TTO( 1 ) .RH0C02I I i ♦ 1 .PHI .THETA) 
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si-a 


APUSUP 


IT** 



PH 102(1) e PHI 

1 m 

C 



l 176 



CALU FINTAB (NTBID(4<5)j 

m 



XTA8(H = PCH 

: 178 



XTAB(2) := RH0CH2<lj 

178 



PHIH2(I) e f1IPC(2»XTAB) 

; iso 

c 



1 181 


450 

CONTINUE 

182 

c 



1 (87 

c 

** 


, |8S 

c 



185 

c 



1 186 

c 

CHECK ADEQUACY op EXHAUST PRODUCTS FOR CONDITIONING THE OASES 

' 1«7 

c 



l 1 08 



00 500 I e | , KCYCLE 

168 



WSUM(J) e HDA(I) ♦ WDB(l) ♦ WDC(I) ♦ WOO(I) * WDEdi ♦ WOFdi 

1 I’O 



ovmB(i) s o.o 

, 181 



WGHC(I) X 0.0 

182 



WGOC ( I ) = 0,0 

187 



DVIDB(I) s W5UM(I) . WDdj 

, i’4 


500 

CONTINUE 

18*; 

c 



186 



DO 501 I = | , KCYCLE 

’ 187 



IF < WSUM ( I ) ,LE. WDtl)) 60 TO SOI 

1 88 



GO TO 460 

189 


501 

continue 

200 



GO TO 470 

201 

c 



202 

c 



207 

c 

«* 


204 

c 



.205 

c 



:20ft 

c 

CORRECT FOR the effects of use OF THE SUPPLEMENTARY conditioning gas 

207 

c 

GENERATOR AND HEAT EXCHANGER, 

1 208 

c 



209 


460 

DO 502' I := f tKCYCCE 

210 



TME = <TG ♦ T01/2.0 

' 211 



CALL CSUBPI (TMEjFMRGi CPG) 

212 



K7 = CPGP(TG - TO) 

• 217 



KB = 1.0+ FMRG 

I :2m 



Kll = (WOCUI/WORHCm*<<WOE<U*FMR6)/WOROilbMiWDF<n*FMRG> 

215 



/WOROUM 

216 

c 



2 1 7 

c 

Compute reference he anO 02 flowrates to supplemental gas generator. 

218 

c 



.21 9 



HGH(I) = < wDf I ) - wSUMf I j )/(KM - <(K8*KT)/0d> d 

220 

c 



22 1 

•C 



222 



HGHC(I) = VIGH(I) 

227 

c 



224 



HGOC(I) = FMROPMGHCd) 

.22% 

c 



226 

c 

compute the corrected values of the heat exchanger exhaust reouiremen 

227 

c 

ts 


228 

c 


WDflC d? e WDBd) - (WCHC(n*(<K8*K7)/0db) 

229 



1 .270 



WOCCd) * WOC(I) * d * 0 * 1 MGHC d ) /WORH til)) 

271 



KDEC(I) = WDE(I) * (1,0 ♦ (WGOCd)/WOROd))) 
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APUSUP :******** 


218 weptdl s m{\) ■* d.o * <Hr,oe(!i/wDfto(nJ) 

211 102 CONtlNUE 

214 C 

211 00 TO 171 

216 C *** 

217 C IF NO SUPPLEMENtARV CONDITIONING GAS GENERATOR AND HEAT EXCHANGER 

218 C ARE REOUIRED. 

219 C *** 

240 170 00 Sol I '= I.KCYCLE 

21 1 WDBC(I) a WDB(I) 

212 WOCC(I) :s HDC(I) 

211 WOEC(I) e WDE ( I ) 

.211 WOFC(I) a WDF(I) 

211 101 CONTINUE 

216 C 

217 171 CONTINUE 

218 C 

219 C COMPUTE THE CORRECTED TOTAL H2 ANO 02 FLOwS TO THE H2 AND 02 ACCUHULA 

210 C TORS. 

21| C 

212 DO 101 I c I.KCYCLE 

211 HTH(I) :a WPRH(I) ♦ HGHC(I) 

211 WTO(I) a WORO(I) ♦ HGOC(I) 

211 C 

216 C COMPUTE THE TOTAL ENTHALPY INCREMENT SUPPLIED BY SUPPLEMENTARY GASi 

217 C 

218 OELH(I) a WGHC(t) * KS *• K7 

219 C 

260 C COMPUTE CORRECTED VALUES OF HEAT PLOW IN MAIN H2 AND 02 HEAT EXCHANO- 

26| C ERS BETWEEN TANK AND ACCUMULATOR. 

262 C 

261 02HDTCU) a D(I)*WDBC<n 

261 020DTC ( I ) = WTO(I)*(HAO - HTO(I)) 

261 C 

■266 C COMPUTE THE CORRECTED VALUES OF THE HEAT FLOWS IN THE H2 AnD 02 TANK 

.267 C HEAT EXCHANGERS. 

268 C 

269 QIHDTC(I) 8 DQODWH( I >*WTH( I ) 

270 ' "■ QIOOTC(I) a DQ0DWO( I )*WTO( I ) - - - 

27| C 

:272 C COMPUTE TEMPERATURE OF COLO FLUID ENTERING SUPPLEMENTARY GAS 

271 C GENERATOR 

271 C 

271 CALL CSUBP(TAH, RCH,2.CPH( I ) j 

276 C 

277 CALL CSUBP(TTH(I),PCH,2,CP8H<n> 

:278 C 

279 TSIN(I) a TAH - (((wGHC(I>.wGOCm)*KT)/|MTH(I)*CPBH(lj)j 

.260 C 

28 | 101 CONTINUE 

282 C 

281 DO 101 II a I.KCYCLE 

281 IF(TSJN(I1) ,LT. TTHtlljj 0070106 

281 101 CONTINUE 

286 C 

287 GO TO 107 

.288 C 

289 106 CONTINUE 
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) 


******** 


290 

C 


29 I 

C 

*** RESET VALUE OE FUR AND RECYCLE PROORAH. 

292 

c 


291 


FUR =: FMR ♦ 0. 1 

294 


LREPT = 1 

.291 

c 


:29ft 


WRITE (lOTiTOII) 14, TSINII4), FMR 

297 

701 1 FORMAT ( / / /T20* I00< »*' |/T20, I00( '*' |/T20i I00( >** I//T27, »AN U NACCfPT 

.298 


1 ABLE VALUE FOR TSIN HAS SEEN ENCOUNTERED ... TSIN FOR CYCLE 

299 


211, 2X, »*» *F8.2//T40* ' THE APU FUEL MIXTURE RATIO HAS BEEN RESET T 

100 


10 - - - FMR S'»FS.2//T20,l00t'*')/T20,l00t**')/T20 t |00< , *'i) 

10 1 

C 


102 


RETURN 

101 

c 


104 


S07 CONTINUE 

101 

c 


,306 

c 


,107 

c 


108 

c 


109 

c 

CALCULATE THE WEIGHT OF PR0PELLAN7 TANK HEATER CIRCULATING COMPRESSOR 

110 

c 

FIRST COMPUTE THE MAXIMUM FLOW RATE FOR HYDROGEN ANO OXYGEN. 

Hi 

c 


•H2 


OQWMXO e 0,0 

111 


DOWMXH = 0.0 

114 


DO S09 I S | fKCYCLE 

US 


DOWMXO a AHAXI (DQWMXO* OQOOWO ( I | 1 

1 1 6 


DOWMXH C AM AX 1 ( OQWMXH, OQODWHI I ) J 

■V7 


109 CONTINUE 

118 

c 


.119 


WOMAX a 0,0 

'120 


WHMAX = 0.0 

12 1 


DO Sio l e l.KCYCLE 

122 


WOMAX a AM AX 1 ( WOMAX t WTO ( j j j 

|1?1 


WHMAX a AMAXI (WHMAX, WTH(IJ> 

[124 


110 CONTINUE 

;12S 

c 


(126 


oo sn r.-s i.kcycle 

127 


OINTKO ( 1 1 a OflOOWOdJ * WTO(I) 

128 


0 INTKM ( 1 1 = DQOOWHUJ * WTH(I) 

129 


111. CONTINUE 

110 

c 


111 


OMXTKO a 0.0 

112 


GMXTKH a 0.0 

111 


DO S|2 I a | ,KCYCLE 

114 


OMXTKO a AMAXI (QMXTK0,GINTK0( II) 

ns 


QMXTkh :a AMAXI (0MXTKH,QINTKH ( I ) ) 

i 116 


ii2 continue 

117 

c 


118 

c 


119 

c 

COMPUTE THE SPECIFIC HEAT ANO DENSITY OF H2 AND 02 AT THE FINAL 

■no 

c 

TEMPERATURE ANO PRESSURE 

14 | 

c 


142 


CALL CSUBP(TFO f PFO,lYCRFO) 

! 141 


CALL OENSON(TFO,PFO, l,RHOOF,ZEE) 

144 

c 


141 


IGAS a a 

146 


CALL CSUBP(TFH,PFH,IGAS,CPFH) 

147 


RHOHF a (l44.0*PFHj/(ZFH*TFH«FIN0R(IGAS) j 
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APUSUP 


h -> 


148 

149 

rso 

151 

152 
151 
3S4 

155 

156 

157 

158 

159 

160 
161 
162 
161 

164 

165 

166 

167 

168 

169 

170 
17 | 
172 

171 

174 

175 

176 

177 

178 

179 

180 
181 
182 
181 

184 

185 

186 

187 

188 

189 

190 

191 

192 
1«1 

194 

195 

196 

197 

198 

199 

400 

40 1 

402 
40 -* 

404 

405 


C 

WOTCPO a GMxTKO/tCPFO * tTD.tOO.e.TFOh 
WDTCPH s QMXTKH/(CPFH * (TD-IOO.O-TFH) ) 

WOCOMP b, ( 0 ,OI 4 S 5 *PELPCp*WOTCPO)/RHOOF 
WCIRCP(I) x WOCOMP 

HHCOHP s ( 0 ,OI 455 *OEIPCP*WOTCPH)/RHOHF 
WCIRCP ( 2 ) = WHCOMP 

c 

C CALCULATE the WEIGHT of the H 2 AMO 02 STORAOE TANKS, FIRST COMPUTE 
C THE TOTAL WEIGHT OF M 2 AND 02 NEEDED FCR THE SUPPLEMENTAL 6 AS 
C GENERATOR. 

C 

WTGH a 0,0 

WTGO s 0,0 

I = 0 

DO 520 II s |»N 0 CYCLi 2 
1 = 1*1 

WTGH = VITGH ♦ WGHC(l) * OCTCLEMU 

HTOO s WTGO ♦ WGOC(I> * DCVCLE (III 

520 CONTINUE 

C 

c ********************************************************************* 
c 

c ... 

C BEGIN CALCULATING WEIGHT OF H 2 VENTED DURING THE MISSION, FIRST 
C COMPUTE THE APPROXIMATE VOLUME OF THE H 2 AND 02 STORAGE TANKS, 

C 

VTH s (WDH ♦ WTGH)/( 4,15 - RHOHF J 
VTO = (WDO * WTGO ) / ( 70, 0 - RHOOF) 

RH s CBRT (( 1 , 0 *VTH) / 1 2,5661 
RO = CBRT ( ( 1 , 0 *VT 0 )/ 1 2.566 1 
C 

C COMPUTE THE AREA OF THE H 2 AND 02 TANKS ASSUMING THAT THEY HAVE 
C SPHERICAL GEOMETRY. 

C 

ATH = I 2 . 566 *(RH** 2 ) 

ATO = I 2 . 566 *(R 0 ** 2 ) 

C 

C COMPUTE THE HEAT FLOW PER UNIT AREA PER UNIT TIME ACROSS THE SURFACE 
C OF THE TANK MATERIALS, 

C 

WVlHH = 0,0 
WVIHO = 0,0 
1 = 0 

DO 550 II = 2 »N 0 CYCLr 2 
I = I *| 

c 

C CALL SUBROUTINE TCOND TO RETURN QDOTT, 

CALL TcONoiTENV.TFH.SNBAR( 2 j.SITHIK« 2 »inSITYPE( 2 f I j.ODOTHj 
DHH 8 (QDOTH * ATH * DCYCLE(l) ) 1 / 60,0 

C 

CALL TCOND fTENv*TFO,SNBAP( I ) »S1TH1K{ I * I j ,SITYPE(I ♦ I j ♦QDOTOj 
PHO S ( QOOTO 9 ATO * DCYCLE j 1 1 ) ) / 60.0 

c 

C COMPUTE THE SPECIFIC HEAT OP H 2 AT T= TTH(I) AND P= PCH. 

c 
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******** 


APUSUP 


406 

4 0 7 
I 408 

409 

410 
•41 t 
412 

i -413 
■414 
415 

l l " 6 

417 

418 
, 419 
' 420 

•421 
1 422 
,421 
, 424 
•425 

426 

427 
, 428 

429 
1 430 
431 
' 432 

433 

434 
: 435 

■436 
437 
1 -438 
•439 
■440 
, 441 
442 
i 443- 

444 

445 
, 446 

447 

448 
•449 

450 

451 

452 

453 
, 454 

455 

456 
•457 
•458 

, 459 

460 
46| 

462 

463 


:CALL CSUBPfT7H(T) t PCH ? 2,CPH) 

WVIHO = WVIHO (DHO/{CPH*(TFO-TTH(I) ))) 

C 

t COMPUTE THE WEIGHT OF THE H2 IN THE TANK AT THE START OF THE COAST 
C PERIOD TAU(I). 

C 

HH r WDH •♦ KTGH •- TTH2WD(IS 
Cl = (5.4*DHH)/(PCH*VTH) 

C2 = SORT (1,0 ♦ 0**2) 

WVIHH = WVIHH ♦ (WH * 1 1 10<fC f-C2> ) 

550 CONTINUE 
C 

c COMPUTE RESULTANT TOTAL WEIGHT OF VENTED H 2 i 
C 

IF(WVIHH-WVIHO) ,555.555 
WVH = WVIHO 

IF(WVH.LT.O.O) WVH ■=• 0.0 
GO TO 560 
555 WVH = WVIHH 
560 CONTINUE 
C 

C A**********************#******************************************, 

c 

c 

C CALCULATE WEIGHT OF H2 AND 02 STORAGE TANKS. FIRST COMPUTE THE 
C CORRECTED VOLUME OF THE H2 STORAGE TANK 
C 

VTH .= (WDH * WTGH ♦ WvH)/(4.35 - RHOHFI 
MTRL = SMTYPE (2. I ) 

:CALL FINTAB (NTBID(9)+MTRL) 

FTUX = MIPE (I.TFH) 

ROFTUH = RHOL( MTRL)/ 1728 i /FTUX 
MTRL = SMTYPE 

CALL FINTAB (NTB1D(9)+MTRL) 

FTUX = MIPE ( I , TFO ) 

ROFTUO = RH0L(MTRL)/I728;/FTUX 
WGTHT = 7000.0*VTH*RCH*ROFTUH 
WGTOT = 7000.0*VTO*PCO*ROFTUO 
C 

SMDIAMC2* I > = ((6.0 * VTH) /PI )**0»333 
C . . . 

SMDIAM( l.l) = ((6.0 * VTO) /PI ) **0,333 
C 

C ***************************i**********************************i***« 

C 

C 

C CALCULATE WEIGHT OF RESIDUAL PROPELLANTS IN THE H2 AND 02 TANKS 
C 

WRH .s VTHARHOHF 
WRO .= VTO*RHOOF 

C 

C **************************************„***************************« 

c 

C CALCULATE WEIGHT OF H2 AND 02 ACCUMULATOR TANKS 
C 

MTRL □ AMTYPE (2 ) 

CALL FINTAB ( MTB1D ( 9 ) +MTRL) 

FTUX = MIPE ( I , TAH) 
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******** 

APUSUP ********- 


464 


ROFTUH c RHOL ( MTRL j / 1728, /FTUX 


465 


MTRL = AMTYPE 


466 


CAUL FINTAB (NTBTD(9)fMTRL> 


**67 


FTUX s HIRE ( 1 ,TA0) 


468 


ROFTUo = RHoL(MTRL)/I728,/FTUX 


469 


CAUL ZFI!)0(TAH,PCH,2,ZAH) 


470 


CALL ZFIHD (TAHf PFH*2*ZAHF) 


47! 


ZAO = ZOET(TAO,PCO, I ) 


472 


ZAOF B ZGET(TAO,PFO, ! ) 


471 


Cl * (PCH/ZAH) - (PFH/ZAHF) 


474 


C2 = (PCO/ZAO) - (PFO/ZAOF) 


475 

c 

WAH e ((2.085/(1 ,0*FMR ) j*(PCH*ROFTUH>*(HPR*RRFP«TAHi f/Ct 


476 



477 

c 

HA0=( (0. 1108/1 ! ,0t( I.O/FMR) j )*(PCO*ROFTUO>*(HPR*RRFP9TAOJ j/C2 


470 



479 

c 



480 

c 



481 

c 

CALCULATE THE WEIGHT. OF THE H2 AND 0 ? ACCUMULATOR RESIDUAL PROPELLANT 


482 

c 



481 


WSH = (HPR*RRFP)/( 18000. 0*( 1 ,0+FMR)) 


484 


WSO s <HPR*fiRFP|7(l8000.0*(I.O*(!.0/FMR)h 


485 


WRAH c (WSH*PFH)/(C! *ZAHF ) 

w 

486 


WRAO '= (WS0*PF0)/(C2*ZA0F) 

487 

c 


CO 

488 

c 

A************************ •*•******»***«**•*•**#*»*••»»•*******••**»** 

o 

489 

c 


490 

c 



49| 

c 

COMPUTE THE TOTAL PROPELLANT REOUIREMENT 


492 

c 



491 

c 



494 


WPTOT ( 2 ) c wOH ♦ WTOH WV” 


495 


WHTOT = WDM ♦ WTGH WVH 


496 


WPTOT (1) = WDO ♦ WTGO 


497 


WOTOT = WDO ♦ HTGO 


498 

c 



499 

c 

OUTPUT APU SUPERCRITICAL DATA 


500 


CALL OAPUSP (KCYCLEj 


50 I 

c 



502 

c 

" “ *“ *' *- 


501 

c 



■504 

c 



505 

c 

COMPUTE WEIGHT AMD CHARACTERISTICS OF ALL HEAT EXCHANGERS 


506 

c 

*t*#*t» ************************************ *************************** 


507 

c 



508 


JX = 0 


509 

c 



510 

c 

COMPUTE WEIGHT AND CHARACTERISTICS OF THE 02 HEAT EXCHANGER 


511 

c 

BETWEEN THE 02 ACCUMULATOR AND THE APU 


512 

c 



511 


JX = JX ♦ 1 


514 


JHX = JX 


515 


IGAS = | 


516 

c 



517 


WOOMAX = 0.0 


518 


DO 2010 I = I.KCYCLE 


519 


IF(WORO(I).LT. WOOMAX) GO TO 2010 


520 


WOOMAX e WOROII) 


521 


IMAX B I 
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•522 

523 

524 

525 

526 
1 527 

528 

529 

510 

511 
, 512 

511 
i 514 


515 

516 

517 

518 

519 


540 
54| 
552 

541 


i 544 

545 

546 

547 

548 
; 549 

550 

55 1 


552 
551 
I 554 

555 

556 
J 557 

558 

559 

560 

561 

562 
561 
564 
56<j 

566 

567 

568 

569 

570 

571 

572 
571 


• 574 

575 

576 


577 

578 


579 


2010 CONTINUE 
C 

WOOTXj JXflGAS) s 0.0166 *• VOOMAx 
UCODE ( JX* IGAS ) * HXCOCE(JX,!GAS) 

HEXHlT(JX,!flASl S TEtIMAX) 
hexcitijx.igas s tag 
hexhot(jx,igas) s tp 

HEXCOT ( JX, IGAS ) * TPP 
MEXCOP ( JX, IGAS | s PgG 
HXMRAKJX, IGAS) b fmr 

CALI IlEATExi IGAS, JX,WD0TXtJx*tflA5),HEXMttfJx» IGAS) *HExeittJx*t()A$) 
I , HEXHOT ( Jx. IGAS ) »HEXCOT( JX, IGAS) ,HtxHIP( JX»lGAS )»HEXCIP( JX, IGAS) , 

8 HEXHOP (JX,’ IGAS I, HEXCOP(JX, IGAS), HXKRAT(JX, IGAS), WDOTH (JX,IGAS)» 

1 WHXTOT( JX.IGASI ) 

CALL GASGENt JX, IGAS) 

C COMPUTE WEIGHT aN '0 CHARACTER tSTtCS OP THE H2 HEAT EXCHANGER 

C BETWEEN THE H2 ACCUMULATOR AND THE APU 

C 

IGAS s 2 
C 

WDHMAX bO.O 
00 2020 T = I.KCYCLE 
!F(WDRH(I)»UT.HDHMAX) GO TO 2020 
WDMUAX S WORH(I) 

IMAX = I 

2020 CONTINUE 
C 

WOOTX( JX, IGAS) * 0.0166 * VOHMAX 
UCOOE ( JX , IGAS ) = HXCODE ( JX, IGAS) 

HEXHIT ( JX, IGAS ) B TEUMAX) 

HEXCI T ( JX, IGAS ) B TaH 
HEXHnT(JX,IGAS) b m 
HEXCOT ( JX, IGAS ) b TPP 
MEXCOP (JX , IGAS ) = PGS 
HXMRAT(JX,IGAS) = FMR 

c 

CALL HEATEXI IGAS, JX,WOOTX( JX* IOAS) ,HEXHIT( Jx, IGASj ,HEXCITj Jx.IOASj 
I, HEXHOT ( JX, IGAS ), HEXCOT (JX, IGAS ).HEXHIP( JX, IGAS), HEXC IP (JX, IGAS), 

2 HEXHOP ( JX, IGAS I, MEXCOP (JX, IGAS l.HXMRATtJX, IGAS >,WOOTH ( JX.IGAS), 

1 WMXTOT(JX,IGAS) ) 

c 

CALL GASGENI JX, IGAS) 

C 

C COMPUTE WEIGHT aNq CHARACTERISTICS OF THE H 2 SUPPLEMENTARY GAS 
C HEAT EXCHANGER 
C 

OX = JX ♦ I 
JHX e JX 
IGAS = 2 
.C 

CALL CSUBPI (TG,FMRG,'CPG| j 
KB = CPG)«(7G-T0) 

HGHCttX •=' 0,0 
no 2050 I = !,KCYCLE 
IF(WGHC(I),LT.WGHCHx) GO TO 2050 
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APU5UP ******** 


58o 


WGHCMX a VGHttll 

581 


IMAX s t 

582 

:2050 

CONTINUE 

581 

C 

OOTSMX s (WGHCMX+WOOCIIMAX)) * K 8 

581* 


585 

C 


586 


•TS1NHN « TSIN(I) 

587 


00 2058 I = 2*KCYCLE 

588 


IF(TSIN(I).EQ.O.O» CO TO 2058 

589 


TSINHN c aMJNI (TS lNMN, TJINI I ) ) 

590 

2058 

continue 

591 

.c 


592 


wtmmax s 0.0 

591 


DO 2055 1 = I.KCYCLE 

594 


IF (HTMI I ) .LT.WTHMAX) GO TO 2055 

595 


WTMMAX a WTH(lj 

596 


I MAX :s I 

597 

2055 

CONTINUE 

598 

C 


599 


WDOTX ( JX , 1 GAS ) S 0.0166 * WTMMAX 

600 


UCOOE(JX.IGAS) e MXC00E( JX. IGAS) 

601 


MEXHIT(JX,IGAS] s tg 

602 


HEXC IT ( JX i I GAS ) = TSINMN 

601 


HEXHOT(JX, IGAS) C TD 

604 


HEXCoT ( JX t IGAS) e TAH 

60S 


HEXCOP ( JX , IGAS ) - APPES<2) 

606 


HEXC IP ( JX , IGAS ) X PCK - 25.0 

6O7 


HXMRAT(JX,IGAS) o FHRG 

608 

C 


609 


IF(HEXCIT(JX. IGAS), EQ.HEXCOTIJX. IGAS)) GO TO 2025 

610 

O 

611 


CALL HF.aTex(IGAS,Jx,WDOTx( JXf IGAS), HExHIT(Jx» IGAS), HExCIT(Jx. IGAS) 

612 


I.HEXHOTjJX, IGAS ),HEXCOT(JX. IGAS ),HEXHJP{JX, IGAS |,HEXCIP(JX, IGAS), 

611 


2 MEXHOP (JX, IGAS ),HEXCOP(JX, IGAS), HXKRATIJX, IGAS), WOOTH (JXjlGAS), 

614 


1 WHXTOT ( JX, IGAS ) ) 

615 

C 


616 


CALL GASGENj JX, IGAS) 

617 

c 


616 

- 

GO TO 2026 - ~ 

619 

c 


620 

2025 

CONTINUE 

621 

C 


622 


WRITE ( I0T»885) HxCODE(JXflGAS) 

621 

885 

EOHMAT ( /T4 , • **• HEAT EXCHANGER - ' , A6 , l IS NOT IN USE IN THIS PR 

624 


IOBLEM ***!)' 

625 

C 


626 

2026 

CONTINUE 

627 

C 


628 

C 

COMPUTE WEIGHT AND CHARACTERISTICS OF THE 02 HEAT EXCHANGER 

629 

C' 

BETWEEN THE 02 STORAGE TANK AND THE ACCUMULATOR 

610 

O 


611 


JX 3 JX 9 1 

612 


JHX s JX 

611 


IGAS s I 

614 

c 


615 


WTOMAX S 0,0 

616 


DO 2010 I .e l,KCYCLE 

617 


IF(WT0(I).LT. WTOMAX) GO TO 2010 
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i 


618 

619 


6NQ 


6MI 

642 

643 


644 

,649 

646 


64T 
648 
'649 
6*50 
69 I 
'692 
.691 
,694 
l 699 

696 

697 
,698 

699 
; 660 
661 
'662 
663 
'664 
669 
666 
66 ? 
668 
669 
• 670 


67| 

672 

671 

674 

671 

676 

677 


678 

679 
660 
661 
662 
681 
664 
664 


686 

667 

668 

689 

690 
69| 
692 

691 
694 
69<j 


NTOMAX = HTOdJ 

IHAX e ! 

2010 CONTINUE 
C 

NOOTX<dX»lCAS) s 0.0166 * WTOMAX 
UCOO£(JXf IOAS) a HXCO0£( dX* IGAS ) 

HEXMIT(dX»IOAS) e TEtlMAX) 

HEXCITT JX. TGAS) = TTO(IMAX) 

HEXHOT ( JX, IGAS) = TD 

HEXCOT ( JX » IGAS ) = TAO 

HEXCOP! JX, IGAS) = PCO - HXCDLP ( JX, IGAS) 

HEXCtpfJX, IOAS) r PCO 
HXtIRAT ( JX* IOAS) E FUR 

C , 

CAUL IIEATEX ( IOAS. dXVWDOTX (JX,I6AS)»HEXHIT(JX» IGAS j ,HExCrT( Jx» IGAS j 
I , MEXIIOTjdX, IGAS )»HEXCOT(dX t IOAS ),HEXHIP(dX, ISAS ),HEXCIP(JX*ISAS»* 

2 MEXUOP ( JX, IGAS ), HEXCOP ( JX, IGAS), HXHRaT!JX,!GaS),WDOTH (dXjIGASj, 

1 UHXToT(dX.IGASt) 

C 

CALL GASGEN ( JX , 1 GAS j 

C 

C COMPUTE HEIGHT AND CHARACTERISTICS OF THE H2 HEAt EXCHANGER 
C BETWEEN THE H2 STORAGE TANK AND THE ACCUMULATOR 

C 

IGAS E 2 
C 

WTMMAX a 0.0 
DO 2040 I = I.KCYCLE 
IF (WTtKI ) .LT.WTHMAX j GO TO 2040 
HTHMAX = WTH< 1 1 
IMAX :S I 
2040 CONTINUE 

c 

WDOTx ( dx» IGAS ) S 0.0166 * WTHMAX 
OCOOE (dX« IGAS) , * HXCODE ( JX. IGAS ) 

HEXHIT(dX.lGAS) e TEUMAX) 

HEXC IT ( dX* IGAS ) s TTH(IMAX) 

HEXHOT t dX . IGAS) a TD 
IF(OELM(lNAX).rO.O.n) TSIHMN t TAH 
HEXCOTtdX, IGAS) B TS1NHM 
HEXCOP ( dX. IGAS ) X PCH « HXCDLP(dX.IGAS) 

HEXClp ( dX . I GAS ) B PCH 
HXtlRAT(dX.IGAS) e FNR 
C 

CALL HEATEX(IGAS,dX,H D OTX(dX.lGAS) .HEXHITIdX, IGAS). HEXClT(dX, IGAS) 
I , HExHOT (dx. IGAS), tlExCOTtJx. IGAS), HExHIP(Jx» IGAS) .HExCIPfdXt IGAS), 

2 HEXMOP ( dX, IGAS ), HEXCOP (JX, IGAS ),HXHRAT(JX, IGAS), WDOTH (JX.IGAS), 

3 VIMXTOT (dX, IGAS ) ) 

C 

CALL GASGEfKdX, IGAS) 

C 

c COMPUTE WEIGHT AMD CHARACTERISTICS OF THE 02 HEAT EXCHANGER 
C OF THE 02 TANK CONDITIONING HEAT EXCHANGER 
C 

JX B JX ♦ | 
dHX ■ = . JX 
IGAS = I 

c 
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696 

69 ? 

698 

699 

700 

70 1 

702 
701 

704 

705 

706 

707 

708 

709 

710 
71 I 
712 

711 

714 

715 

716 

717 

718 

719 

720 

721 

722 
721 

724 

7 25 
'726 

727 

728 

729 

710 
7?l 

712 

711 

714 

715 

716 

717 

718 

719 

740 

741 

742 
741 

744 

745 

746 

747 

748 

749 


C 


c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 


WD07X ( JX, IGAS ) 8 0.0166 * W07CP0 
UCOOE(JX,IGAS) = HXCODE(JX.IGAS) 

HEXHI7I JXf IGAS) s TE(IMAX) 

HEXC 171 JXi IGAS } a TTO(IMAX) 

HEXHOT (JX, IGAS) s TD 
HEXCOT ( JX* IGAS ) c TD - 100.0 
HEXC IP (JX i IGAS ) c PCO * DELPCP 
HEXCOPf JX, IGAS) = PCO 
HXHRAT (JX.IGAS) 8 FMR 

CAU HFATEX ( IGAS, JX,4DOTX(JX, IGAS >,HEXH1T(JX, IGAsl »HEXCIT(JX, IGAS i 

1 .HEXHOT (JX.IGAS) ,HF.XCOT( JX.IGAS) .HEXHIP ( JX , t GAS ) , HEXC IP t JX, I GAS ) , 

2 HEXHOP(JX,IGAS) ( HEXCOP(JX,IGAS),HX«RAT(JX,IGAS),HDOTH (JX,IGAS), 

1 HhXTOT(JXiIGAS)) 

CALL GASGEH( JX, IGAS) 

COMPUTE WEIGHT and CHARACTERISTICS OF THE H2 HEAT EXCHANGER 
OF THE H2 TANK CONDITIONING HEAT EXCHANGER 

IGAS s 2 

WDOTX(JX.IGAS) s 0.0166 * WDTCPH 
IJCOOEt JX.IGAS) = HXCOOE(JX.IGAS) 

HEXHITIJX.IGAS) 8 TE(IMAX) 

HEXCIT ( JX, IGAS) 8 TTH ( I MAX ) 

HEXHOTI JX, IGAS) s TO 

hexcdtijx.igas) s td - loo.o 

HEXCIP(JX,IGAS) a PCH * DELPCP 
HEXC0P1JX, IGAS) s PCH 
HX||RAT 1 JX, IGAS) = FtfR 

CALL HEaTex(IGAS,Jx,WDOTx( JX, ISAS j,HExHIT(Jx, IGAS), HExCITj JX.IGAS) 
I, HEXHOT ( JX, IGAS), HEXCOT (JX. IGAS). HEXHIP (JX, IGAS), HEXCIPfJX, IGAS), 

2 HEXH0P (JX, IGAS ),HEXC0P( JX.IGAS), HXHRAT (JX, IGAS J.HDOTH (JX.IGAS), 

1 HHXTOTt JX.IGAS) ) 

CALL GASGEN( JX.IGAS) 

CALL OTPHEX 

********************************************************************* 

WRITE ( I0T.996 j 

996 FORMAT(/////T10. '***♦* THE APU SUPERCRITICAL CALCULATIONS HAVE RE 
I EH COMPLETED ****♦•) 

********************************************************************* 

END OF SUPERCRITICAL C0MPUTA710H5. 

RETURN 

END 
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, 1 SUBROUTINE BETAaTT8,D8»NGAS»VEXB) 

a c 

7 C CALCULATES VOLUME EXPANSIVITY FROM EOUaTION OF STATE IN BRITISH 

i 4 C UNITS 

5 C 

6 T o TB 

7 0 :* DB 

1 8 Mo| 

! 7 C 

1 10 IF ( NGAS.EQ, | j KF s ( 

1 I | IF( NGAS.EQ, 1 8 ) KF e Z 

112 C 

in C KF : | 1CALL IN OXYGEN PROPERTIES (DATA02) 

i 14 C KF a 2 CALL IN NITROGEN PROPERTIES (0STAN2 j 

: IS C 

i 16 IF (KF ,EQ, I ) CALL DATA02 

i 17 IF (KF.EQ,'2) CALL DATAN2 

IB C 

,19 01 s DPOOBCTfO) 

20 02 s DPOTBfT.O) 

21 C 

> 22 VEXR = (1,0/0) * (02/01 j 

1 23 C 

24 RETURN 

25 END 
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******** 


W 

i 

DO 

05 


I 

5 
1 
4 
<5 

6 

7 

8 

9 

10 

11 

12 
n 
m 

15 

16 

17 

1 8 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 

70 

71 
12 
11 
14 
75 
16 
17 
IB 
19 

90 

9 1 

92 
91 
99 

95 

96 

97 

98 

99 


CACCUM* PROC 
C 

PARAMETER NA2a2.KAC2eNA2*| »KAC1s2*NA2+ I ♦KAC4*1*NA?+ j ♦KAC5#4*NAJ* I ♦ 
I KAC6a5*NA3+l »KAC7s6*NA2+| *KAC8=7*NA2*I *KAC9s8*NA2+l »KAC0=9*NA2 
C 

INTEGER A|TYPE*AMTYPE 

C 

COMMON /.CACCUM/ NAOP (MA2j tAHTYPE(NA21 |AtTYPE(NA2j ,AD!AH (NA2»» 

1 AA (NA2),AV0L (NA2 ) * ACWT (NA2 ) , AITH1K (HA2) , ACIWT (NA2J» 

2 AHFLUX(NA2 ) f AHBAR (NA2) . ANDELP(NA2 ) ,APRES (NA2),ATEMP (NA2)» 

1 WGRACC(NA2)i INDXaC t NA2) » ACYHT (MAE! 

c 

DIMENSION EQAC(KACO) 

C 

EQUIVALENCE (EOAC ,NAOP j , (EQAC(KAC2 j .AMTYPE j * 

1 (EQAC(KAC1)tAITYPE)'(E0AC(KAC9)'&0lAM ) t ( EQAC ( KAC5 ) * AA ), 

2 (EQAC(KAC6)«AV0L > * (EQAC (KACT ) * ACWT ) , (EQAC (KAC8 J , A ITHIK ) , 

7 (EQAC(KAC9>*ACIWT I 


***** CACCUM 
•* 

* AMTYPE 

•*■ 

•*• AITYpE 

■* 

:* AOIM 

■* 

* AIPRES 

* 

'* AlTEMP 

•* 

■* AUFLUx 

.*■ 

•* AOPRES 

•* 

* AVPREs 

•* 

=• ANDELP 

•*• 

* AiThIK 

-■* 

* ANBAR 

•* 

* NOTE — 

■*■ 

***** 


VARIABLE DEFINITION 

- ACCUMULATOR MATERIAL TYPE (SEE CMATRL). 

- ACCUMULATOR INSULATION TYPE (SEE CINSUl)! 

- DIMENSIONS OF THE ACCUMULATOR 

- ACCUMULATOR INITIAL PRESSURE. 

- ACCUMULATOR INITIAL temprature; 

-ACCUMULATOR HEAT FLUx. 

- ACCUMULATOR OPERATING PRESSURE, 

- accumulator venting pressure. 

- ACCUMULATOR NOMINAL OPERATING DELTA PRESSURE! 

- ACCUMULATOR INSULATION 'THICKNESS.. 

- NUMBER OF LAYERS OF INSULATION ON ACCUMULATOR 

-EACH OF THE ABOVE VARIABLES ARE SPECIFIED 
FOR OXYGEN IN THE FIRST WORD AND HYDROGEN 
IN THE SECOND WORO, 


END 
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W 

to 

-J 


1 

2 

1 

4 

9 
6 
7 

e 

9 

10 
1 1 
12 
I? 
m 

ii 

16 

17 
IB 

19 

20 
21 
22 
21 
24 
21 
26 

27 

28 
29 
10 

11 

12 
11 
14 
11 
16 

’7 

18 
19 

40 
4| 
“2 

41 
44 
41 
46 

**7 

48 

49 
10 
II 
92 
91 
94 
99 

96 

97 


CAPU* 
C 

c 
c 


PROC 

PARAMETER LAPU a 20 
RE AC KK» MRGGCH, MRGGCO 


REAL KK» nRGGCH* MRGGCO 

COMMON /C1APU/ M »NAPU *DELPCP»FMR ,FMRG »HPR »MRG6CH» 

1 MRGGCO, PFH ,s»FO »PGG *RRFP ,TD ,T0GGH ,7DGG0 ,TENV • 

2 TFM ,TFO ,TG *TIT" ,TM£ ,TVH ,TV0 ,EQAPI(9), 

1 Et)AP2( | I *2 j , EQAP9( 1 1 *2 ) ,LAPUI ( 4,(1 ) »LAPU2(4» 1 1 j «LAPU1(4* 1 1 ) 

COMMON /CvAPU/KK(LAPUj, RR(CAPU), wD(LAPU), 0 (LAPU), TE(LAPU|, 

t rnc/i adiii . ttu 1 1 A Oi h _ TfR 1 1 min .until inm .upibii ahiii . 


1 

2 
1 
4 
9 
6 

7 

8 
9 
T 

1 

2 
1 
4 
9 
6 

EQUIVALENCE 
I (EQAPt (1), 
2t (E0AP2 


CPE ( LAPU), TTH< LAPU), TTO ( LAPU )»WDA( LAPU) 
WOC (CAPU), WOO (LAPU), WOE (LAPU I, WOP (LAPU) 
WOJ (LAPU), WGH (LAPU ),WTH (LAPU), WTO (LAPU) 
HTO(LAPU), 

WDRH (LAPU),WDR0 (LAPU), PCTHP (LAPU) 
• ,VIGG0 (LAPU) ,WDFC (LAPU), WGMC (LAPU) 
,W0RC (LAPU),WDCC (LAPU), WDEC (LAPU) 
,DWOR (LAPU) ,D000WH((.APU) , OOODWO (LAPU ) 
,QIODCT(LAPU),Q2MDOT(LAPU) , Q20D0T(LAPtl) 
, 030D0T (LAPU), TTH2WO( LAPU), TT02WD(LAPU) 
, PC02W0 ( LAPU ),Q2HDTC (LAPU), 020DTC(LAP'J) 
, OIOOTC (LAPU ),Q4HDOT (LAPU), Q9MD0T (LAPU) 
,070D0T(LAPU) ,«H0CH2(LAPU), RH0C02ILAPU) 
,OOOWTO(CAPU),TSIN (LAPU), CPH (LAPU) 
,CSUBVO(LAPU),CSUOVM(LApU), PHI02 (LAPU) 
, QINTKO (LAPU) ,QI HTKH ( L.1PU) , CPBH (LAPU) 


(EGAP| , TPF 
WDH ) , (EQAp | (4 ) , WOT 
,WOCOMP), (E0AP2( 1.2) 
1 (EQaPEC 2,2),UTGH ),(E0AP2( 1,1) 

4 (£0Ap2( 4, | ) ,AT0 ) , (E0AP2 ( 4,2) 
9 ( EQAP2 ( 9,2) ,V/GTHT ),(E0AP2( 6,1) 
6 <E0AP2( '7, ) ) ,WRO ) , (E0AP2 ( 7,2) 
T (EOaP2 ( 8,2) »WaH ),<E0aP 2( 9,1) 
a (EQAP2( 10,1 ) tWRAO ), (EOAP2( 10,2) 
9 ( EOAP2 ( I | ,2) ,HHT0T ) 


),(EQAP|(2),W00 
),(ESAP|{9) ,WTRUR 
.WHCOMP), (E0AP2( 2 


« VT 0 
, ATH 
* WVH02 
, WRM 
,WS0 
, WRAH 


), (EQAP2( 
) , ( EQAP2 ( 
) , ( EQAP2 ( 
), (EQAP?( 
) , (EQAP ? ( 


),(E8AP2()| 


EQUIVALENCE (EQAP9 .TGGCO ),(EQAP1( I 

I ( EQAP 9 ( 2, I ) fWTGGO ),(EQAP9( 2 ,j),WTGGH ),(E0AP9( 9 
?. (EQftPK 1,2 ),AREATH),(EOaP 1< 4,1) , VSTO ),<EQAP1( 4 
1 (EOApK 9,1) » OToDclT ) , ( EOAP 9 ( 9,2), QTHDoT ) , ( EoAp 9 ( 6 
4 ( EQAP 1 ( 6,2) »WSVHH ), (EOAP9( 7 

9 (E3AP9 ( 8,|), WPTTO ),(EQAP9( 8,2>,WPTTH ), (EOAPK 9 

6 (EOAPK 9,2) *WSRH ),IEQAP1(I0,I),WS0B I , (EOAPK 10 

7 (E 0 Ap 1 ( 11,1) ,WRSAo ),(EqAp9!II,2).WRSAH ) 


***** 

* NAPU - NUMBER OF. APU UNITS 

* HPR - HORSEPOWER RATING EACH APU 

* FUR - APU TURBINE MIXTURE RATIO 

* PGG - APU GAS GEN. INLET GAS PRESSURE 

* TIT - TURBINE INLET TEMP 

•* TO - EXHAUST temp for heat exchanger 


TE(LAPU) , 
WDB(UAPU), 
WOG(LAPU),' 

hth(lapu), 

WGGH (LAPU) 
WGOC (LAPU) 
DELH (LAPU) 
QIHDOT(LAPU) 
Q9H00T(LAPU) 
PCH2WD (LAPU j 
Q9HDTC(LAPII) 
Q6000T (LAPU) 
DODWTH ( LAPU ) 

PHIH2 (LAPU) 
WSUM (LAPU) 


If 
l> . 

I ).WTGO 
2 ) , VTM 

1 ) ,WGToT 

2 ) , WVHH2 

n.wAo 

2),WSH 
I ) »WOTOT 


2),TGGCM ). 
| ) , AREATO ) , 
2 ) , VSTH ), 
D.WSVHO ), 
2) »WSVH 

1 ) ,WSR0 

2 ) , WSHB 


)• 

)» 


), 
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******** 


******** 


■58 

e 

•■* PHftfi • 

■59 

c 

* PEW ■*. 

60 

c 

* PF8 

61 

c 

• tPH • 

62 

c 

■* TFO - 

61 

c 

’* TG 

64 

c 

* OELCP - 

6S 

C 

■•* KK 

66 

c 

■•* RR 

67 

C 

■•* WD 

68 

c 

■* 0 

69 

C 

* te 

TO 

C 

••* CpE - 

71 

c 

•* TTH 

72 

C 

■* TTO - 

71 

C 

* WDA 

74 

c 

* WDB 

7S 

C 

•■* WDC - 

76 

C 

••* WDD 

77 

c 

•* WDE 

78 

c 

* WDF - 

79 

c 

* WDG - 

80 

c 

•« WDJ - 

81 

c 

•* WGH - 

8Z 

c 

* WTH 

81 

c 

* WTO - 

84 

c 

•* HTH 

8S 

c 

•* HTO 

86 

c 

* WDRH - 

87 

c 

•* wdro 

88 

c 

•* RCTHP 

09 

c 

* WGGH 

90 

c 

* WGG0 

9) 

c 

* WDEC • 

92 

c 

* WGHC 

91 

c 

* WGOC 

94 

c 

>* WORC 

9S 

c 

■* WDCC 

96 

c 

■* WDEC 

97 

c 

■■* DELH 

98 

c 

■■* OV.'DB 

99 

c 

•* TSIN • 

100 

c 

•* CPH 

101 

c 

* OQODWH ■ 

102 

c 

* DQOOWO 

1 0*1 

c 

* 0 | HOOT 

IOu 

c 

* Q | OOOT ■ 

1 os 

c 

* 02H00T 

106 

c 

■* 02000T • 

1 07 

c 

'* G1HD0T 

io 8 

c 

•* Q1000T 

i 09 

c 

•* 02H0TC 

MO 

c 

■* Q20DTC 

M ! 

c 

•* Q1H0TC 

M2 

c 

■■*■ OloOTC 

in 

c 

* ORHDOT 

1 14 

c 

•* QSHDOT 

MS 

c 

•* QeOOOT 


FUEL HIXtURE-RATtO *0* SUPPLEMENTAL GAS GEN. 
EJNAL M2 TANK PRESSURE 

E JNAL 02 TANK PRESSURE 

PINAL M2 TANK TEMPERATURE 

FINAL 02 TANK TEMPERATURE , 

TEMP. OF EXHAUST PRODUCTS - SUPPL. GAS GEN. 

DELTA-P OF TANK CIRCULATING PUMP 

COR, FACTOR-REF. PROP. FLOW RATE FOR 20fc0 TTT, 

PEF, PROP. FLOW RATE ( L BS/MlN) 

DELIVERED FLOW RATE OVER INTERVAL ( I j (LB5/MIN j 
HEAT OF COMBUSTION PRODUCTS (BTU/LB) 

APU TURBINE EXHAUST TEMP. 

EXHAUST SPEC.HT. AT(TE A))D FMR i 
TEMP. DF t!2 IN TANK DURING I NTERVAL ( I ) 

TEMP. OF 02 IN TANK DURING INTERVAL!!) 

APU EXHAUST FLOW THRU H2-HEX tACCUM TO GAS GEN) 
APU EXHAUST FLOW THRU H2-HEX (TANK TO ACCUM) 

APU EXHAUST FLOW THRU H2-TANK HEX 

APU EXHAUST FLOW THRU 02-HEX (ACCUM TO GAS GEN) 

APU EXHAUST FLOW THRU 02-HEX (TANK TO ACCUM) 

apu exhaust flow thru 02-tank hex 

APU EXHAUST FLOW THRU H2-HEX ( SUOC . ACUM-GAS GEN) 
APU EXHAUST FLOW THRU 02-HEX ( SlIRC . ACUM-GAS GEN) 
REF. H2 FLOWRATE TO SUPPLEMENTAL GAS GEN. 

H2 FLOW TO ACCUM DURING INTERVAL (I) 

02 FLOW TO ACCUM DURING INTERVAL (I) 

ENTHALPY OF H2 IN TANK AT INTERNAL! I j 
ENTHALPY OF 02 IN TANK AT I NTER V, AL ( I ) 

KGT.RATE OF H2 FtoWI fJ G-!(|TERVAL( I) f (LBS/MlN), 

- WGT.RATE OF 02 FLOWING-INTERVAL ( I ) , ( LBS/MIN ) 

- PERCENT HORSEPOWER REOO. - 1 NTER''AL ( I) 

- (12 FLOW RATE TO COND. GAS GENS, -INTERVAL!!) 

- o2 flow rate to cono. gas gens, -Interval(I) 

- CORRECTED VIDF 1 1 ) FOR FLOW RATE CHANGE 

- REF.H2 FLOW TO SUPPLEMENTAL GAS GEN, 

- REF. 02 FLOW TO SUPPLEMENTAL GAS GFN. 

- CORP.ECTFO VALUES OF HEX EXHAUST REoMtS. (WD0( I ) j 

- CORRECTED VALUES OF HEX EXHAUST REOMTS .( WDC ( I ) ) 

- CORRECTED VALUES OF HEX EXHAUST REOMTS. (WDE ( I ) ) 
« TOTAL ENTHALPY INCREMENT FROM SUPPL. GAS GEN, 

- REF, REDUCTION IN WDR FOR APU EXHAUST AVAIL. 

- T-COLD-IN FOR SUPPLEMENTARY GAS GENERATOR 

- SPECIFIC HCAT OF COLD FLUID INTO SUP. GAS GEN. 

- HT.XFFR.lNTO 02 TANK DURjNG INTERVAL!!) 

- HT.XFER.INTO H2 TANK DURING INTERVAL ( I ) 

- HT , XFER. INTO HEX RETWEEN H2 ACCUM -APU GAS GEN. 

- HT.XFFR.INTO HEX BETWEEN G? ACCUM -APU GAS GEN. 

- HT.XFFR.lNTO HEX BETWEEN H2 TANK - H2 ACCUmJ 

- HT.XFER.1HT0 HEX BETWEEN 02 TANK - 02 ACCUM, 

- HT, XFER. INTO M2 TANK - INTERVAL! I j 

- HT.XFFR.lNTO 02 TANK - INTERVAL ( I ) 

- CORRECTED VALUE OF 02HD0T ONE TO SUPPL, GAS GEN f 

- CORRECTED VALUE OF 020D0T DUE TO SUPPL.GAS GEN, 
-corrected value of oihdot due to suppl.gas gen, 

- CORRECTED VAl»E OF OloDoT DUE To SUPPL.GAS GEM. 

- HT.XFER.IMTO HEX BETWEEN H2 ACCUM -APU GAS GEN. 

- HT.XFFR.lNTO HEX BETWEEN H2 PUMP - H2 ACCUM. 

-HT.XFFR.lNTO HEX BETWEEN 02 ACCUM -APU GAS GEN. 
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CAPU 


j 1 16 c 

I I? C 

1 MS C 

i 1 19 C 

120 C 

, \l\ C 

122 C 

I 12V C 

1 24 C 

1 25 C 

i 126 C 

, 127 ENO 


'* Q70D0T - HT.XPER.INTO HEX BETWEEN 02 PUMP - 02 AC CUM. 
TTH2HD TOTAL USABLE H2 WITHDRAWN TO END INTERVAL^) 

* TT02W0 TOTAL USABLE 02 WITHDRAWN TO ENO INTERVAL! I ) 

'* P.CH2WD - PERCENT USABLE M2 WITHDRAWN TO END INTERVAL (if 
A PC02WD - PERCENT USABLE 02 WITHDRAWN TO END INTERVALm 
■A RH0CH2 ■» DENSITY OP M2 IN STORAGE TANK 
•* RH0CO2 - DENSITY OP 02 IN STORAGE TANK 

* DODWTH - DQ/DU * WTH( I ) 

•* OQDWTO - DO/DW * HTO(I) 

***** 


I 


i 


w 

«3 


I 
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PR0CEDURE DEFINITI0N PR0CESS0R - CONFIG 


W 

l 

co 

o 


1 

2 
1 

4 

5 

6 
r 
e 

9 

10 

I I 
12 
I? 

14 

15 

16 
IT 
IS 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 

II 
12 
11 

14 

15 

16 

17 

18 
19 

40 

4 I 
42 

41 

44 

45 

46 

47 

48 

49 

50 

5 I 
52 

51 

54 

55 

56 

57 


CCNFIG* PROC 
C 


c 

c 

c 


c 

c 


c 


c 


c 


c 

c 

c 

c 

c 

c 

c 

c 

c. 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


PARAMETER ICNPSIOO 

INTEGER CFUNC7|CPTYPE»CMTYPEt ClTVPE t CNOPERtCNSTBV 
REAL LOD, ITH1CK, HACHt NEAR 

COMMON /CCNFIG/ ICNF IG(6) *C0NF IG( !CNF,T) , PRES( ICNF j , TEMP ( ICNF) » 

1 WDOTN ( ICNF )• MACH ( ICNF ), MFLG < ICNF ), WE 1GHT( ICNF j,WJ( ICNF) 

2 ,ISTRT(2),KENDC(2),LCNFI (4,6).WT0FSY(S) 

DIMENSION FRCOEF ( ICflF ) * LOO(ICNF), DIAM(ICNF), T THICK ( ICNF j , 

I NDAR (ICNF), CODE (ICNF) 

EQUIVALENCE (FRCOEF ( I ) »CONFIG( 1,2)) , (LOD ( I ), CONFIG! 1 ,1) ) » 

1 (OUM ( I ) »CONFIG( l,4)),(ITHKK(|) , CONFIG ( 1,5)), 

2 ( NBAR ( | ),CONFIG( | , 6)), (CODE ( I ) ,CONFIG( 1,7)) 

EQUIVALENCE (CFUNCT,ICNFIG(t)),(CFTYPE,ICNFIG(2)>, 

MCNTYPE,ICNFIG(1)), (C I T YPE , ICNF I G ( 4 ) ) , (CNOPER, ICNF IG ( 5 ) ) , 
2(CNSTBV,ICNF!G(6)I 

EQUIVALENCE ( ISTRT , IOSTT j , ( ISTRTm , IHSTT ) , ( KENDC, KOENO ) , 

2 (KENDC (2), KHEND ) 

EQUIVALENCE (WTOFSY ,02SWTj , (wTOFSY(2 j .02IWT) t 

I (HTOFSY(l),H2SWT), < WTOFSY <4 )* H21 WT ) , ( WTOFSY < 5 ) .TTLSWT ) 


• ****' 


CCNFIG VARIABLE DEFINITIONS. 


CONFIGURATION FUNCTION CODE AND TYPE, 

CFUNCT 5 |, GAS CFTYPE - (20XYGEN 2=HYDR0GEN 


e 2 , engine 


IsHI-PRES, 2SL0-PRES. 


a IV LINE CFTYPE s 10 A FIXED NUMBER 


s 4, CONTROL USES TWO DIGIT INDEX AS FOLLOWS, 
IDV 3 TENS DIGIT <10, 20, ETC.) 
CFTYPE s UNITS DIGIT (l,2,ETC;j 
IDV s 10 FOR LIGHT WGT. CONTROL 
= 20 FOR MED. WGT.CONTROL; 
s 10 FOR HEAVY VIGT. CONTROL 
= 40 FOR EXT. HEAVY CONTROL 
CFTYPE = | FOR VALVE 

s 2 FOR REGULATOR 
3 I FOR ORIFICE 
3 4 FOR FLOW METER 


85, FITTING USES TWO DIGIT INDEX AS FOLLOWS, 
LDV r TENS DIGIT ( 10,20, ETC . ) 
CFTYPE = UNITS DIGIT (I, 2, ETC.) 
LDV 3 10 FOR USE IN LINE ONLY 
20 FOR 4-WAY TEE 
10 FOR 1-WAY TEE 
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:«««««««* 


***««««« 


■t 6 * tip 


fi T* AccUm 
a 8* TANk 
e 9* PUMP 


140 POP 90 060. ELBOW 
80 FOP 48 DEG. ELBOW 
CFTYPE = 1 FOR TEE 

a 2 FOR ELBOW 

tiifeS TWO DIGIT INDEX AS FOLLOWS. 
Lbv a TENS DIGIT (10*20. ETC.) 
CFTYPE a UNITS DIGIT (l,2,ETCl) 
LDV a (O FOR USE IN LINE ONLY 
20 FOR 4-WAY TEE 
10 FOR 1-WAY TEE 
CFTYPE s | FOR TEE 

NO OPTIONS 


TANK ROUTINE) 

INDEX iS FOLLOWS* 

I G IT n0*20,ETC,j 
DIGIT d,2,ETC.) 
MIN, POWER PUMP 
MIN. WGT, PUMP 
HI-PRESS. PUMP 
LO-PRESS XFER PUMP 


USES TWO DIGIT 
JOPTN a TENS D 
CFTYPE a UNITS 
JOPTN a 10 FOR 
JOPTN a 20 FOR 
CFTYPE a I FOR 
CFTYPE a 2 FOR 


; 8' 10* HEX taHI-PRES. 2 elO«PRES, 

*• | I, END 

CMTYPE — CONFIGURATION MATERIAL TYPE. 

CMTYPE a I* 121/147 STAINLESS STEEL 
= 2* 22IR-T8T ALUMINUM ALLOY 
a 1, &061-T6 ALUMINUM ALLOY 
a 4* INCONEL-718 ALLOY 
a 8* TITANIUM TI-6AL.4V ALLOY 
a 6* CRES VACUUM JACKETED LINE 
a 7* 2249 VACUUM JACKETED LINE 

CITYPE • » CONFIGURATION INSULATION TYPE. 

CITYPE a I* DBL. ALUM, MYLAR/SILK NET 
2* DBL. GOLD. MYLAR/SILK NET 
1* DBL. ALUM. MYLAR/TISSUE GLASS 
4* CRINK. DBL. ALUM, MYLAR 
8* NRC-2 CRINKLED AlUMINIIEO MYLAR 
A. SUPERFLOC 

7* MICROSPHERES (104-118 MICRON) 

8* POLYURETHANE FOAM 

9* fiberglass batting (jm) 

CNOPER - NUMBER OF OPERATIONAL UNITS (CFUHCT) 

CNSTBY - NUMBER OF STANDBY UNITS (CFUNCT j 

CONFjG - CONFIGURATION TABLE 

COLUMN I CONTAINS THE ABOVE 6 VARIABLES PACKED 
ONE PER RYTE IN THE ORDER THEY ARE 
LISTED FROM left TO RIGHT IN The WORD. 
COLUMN 2 CONTAINS THE FLOW FRICTION COEFICIENT. 


CMTYPE 


B-32 


***** 

CCNFIC 

■A******* 




116 

C 


COLUMN 

1 

CONTAINS THE LENGTH OP A LINE OR THE 

\n 

C 




effective l/o tor other components. 

118 

c 


column 

u 

CONTAINS THE DIAMETER OF. A LINE. 

119 

c 


COLUMN 

R 

CONTAINS THE INSULATION THICKNESS FOR 

180 

c 




A LINE. 

181 

c 





188 

c 

* PRES 

- PRESSURE 

AT EACH POINT IN THE CONFIGURATION. 

181 

c 

'«****• 




1 84 

c 





1 88 

END 
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PR0CEDURE DEFINITI0N PR0CESS0R - CCNTRL 


W 

co 

co 


1 

2 

1 

U 

s 

6 

7 

8 


CCNTRL* PROC 
C 


PARAMETER NBRSRa9*NBRSY=S 
INTEGER SCRITi SYSNUM 

COMMON /CCNTRL/ 1NBLK(NBRSY,S* 2 ) .NAHSyS (NBRSY) *SCRIT, SYSNUM 
I * INTGSYt MOTRC ( I I )*KSUBC{NBRSY,NflR?R),LREPT*JAPU5(2,2) 


10 

C 


IMBLK - 

CONTROLS INPUT SELECTION IN ■ 

1 1 

c 


SCRIT a 

1 FOR SUB-CRITICAL 

12 

c 


3 

2 FOR SUPER-CRITICAL 

11 

c 


SYSNUM 8 

1 ACPS 

m 

c 


3 

2 APU 

IS 

c 


S 

1 EC/LSS 

16 

c 


a 

4 FUEL CELL 

17 

c 


e 

S OIIS 

18 

c 




19 

c 

CARO COL. 

MQTRC( ) 

- DIAGNOSTIC TRACE SwrTCH FOR 

20 

c 

(TO) 

(1 ) 

a | TURN ON ACCRES 

21 

c 

(Tl) 

(2) 

s j TURN ON ACQWT 

22 

c 

(72) 

(!) 

•c | TURN ON APUSUB OR APUSUP 

21 

c 

(73) 

(4) 

a | TURN ON CMPCAL 

2M 

c 

(7M ) 

(S) 

S I TURN ON FUELCL 

2S 

c 

(T9) 

(6) 

a | TURN ON COtiSUM 

26 

c 

(T6) 

(7) 

a | TURN ON ECLSS 

27 

c 

(77) 

(8) 

a I TURN ON LIQRES 

28 

c 

(78) 

(9) 

a I TURN ON TANK 

29 

c 

(79) 

(10) 

= | TURN ON TSIZEI 

10 

c 

(80) 

(II) 

a | TURN ON WTACC 

11 

c 




12 

c 


MOTRC (1) 

IS CARO COL 70*— MDTRC(II) 

11 

c 


OP THE 

SYSTEM SPECIFICATION CARD 

14 

c 




IS 

c 




16 

END 





> 


CD 

CP 


CO 

CP 
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**** PR0CEDURE DEFINITI0N PR0CESS0R - CDCYCL 

1 CDCYCL* PROC 

2 C 

1 PARAMETER ICOLsIO. !CDL| s2*IC0L. IC0L2sICDLIpI 

4 C 

5 COMMON /CDCYCL/ DCYCLT * NDCYCL. DCYCLEf ICOLI ) , NEOP(ICDL). 

6 I PSI(ICOLj, HP(ICDL), PAHB(ICDL). KCYCLE 


T 

2 


.PKW(ICDL).RPRTIM(!CDL) 

8 

C 





9 

C 

***** 

CDCYCL 

VARIABLE DEFINITION 

10 

c 

-•* 




II 

c 

•* 

PS I 


* OF ENGINE DEGRADATION DUE TO MIR (INPUT). 

12 

c 

•* 




11 

c 

•* 

NDCYCL 

m 

NUMBER OF elements IN DCYClE (INPUT). 

14 

c 

■•* 




is 

c 

'* 

OCYCLE 


ARRAY of duty cycle TIMES. ODD SUBSCRIPTED 

16 

c 




WORDS CONTAIN BURN TIMES. EVEN SUBSCRIPTED 

IT 

c 




WORDS CONTAIN COAST TIMES (INPUT). 

18 

c 

:* 




19 

c 

•* 

DCYCLT 


TOTAL OPERATING TIME FROM DUTY CYCLE. 

20 

c 

•* 



NUMBER OF OPERATING UNITSi 

21 

c 


NEOP 


22 

c 





21 

c 


HP 


HORSEPOWER LOAD PER OPERATING unit. 

24 

c 





2S 

c 


PAMB 


AM8IENT PRESSURE AROUND OPER. UNITS. 

26 

c 





27 

c 


KCYCLE 

m 

INTEGER COUNT OF (ICDL) INPUT VALUES 

28 

c 

f* 




29 

c 


PKH 


POKER IN KILOWATTS 

10 

c 





.11 

c 


RPRTJM 


CABIN OR AIRLOCK REPRESSURIIATlON TIME 

12 

c 





11 

c 





14 

c 





IS 

END 
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PR0CEDURE DEFIN1TI0N PR0CESS0R - CECLSS 


td 

i 

oo 

on 


1 

2 
1 

4 

5 

6 
T 
8 
9 

10 
1 1 
12 
II 

14 

15 

16 
IT- 
16 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 

14 

15 

16 
IT 
18 
19 

40 

41 

42 
41 

44 

45 

46 
4T 

48 

49 

50 

51 

52 


CECLSS* PROC 
C 

PARAMETER ,LX2=2» LXVSI2 

c 


REAL NIENTH 
C 

REAL N2LC0N, N2RES, N2REPR* N2C0NS, N2T0TU, 
I N2TEMP, N2LRES* LINOIA, NRHO, 


N2LWT, N2RH0, N2H, 
N2TEH 


COMMON /CILSS/ MDAYS* NCREW ,HRPRES, NDARES , 02FN0M, 6LKRAT, 

1 TENVR, CABVOL, 02MC0N, 02LC0N , N2LC0N, 02PES »• 

2 N2RES, P0PO2 *P0PN2 , PVP02 , PVPN2 • T02IN « 

1 TH2IH* GASWGT,02REPR, N2REPR * 02C0NS, M2C0NS* 

4 HLSO » 02T0TU,N2T0TU, WDTMXO , WDTMXN, TEMP02 « 

5 HLSN , TEMPN2, TKOMXT, TKNMXT , ZFO , ZFH , 

6 WV02 * «V!I2 ,OLKOTK, QLKNTK * WTVJO , WTVJII, 

7 NPHO , 021. RES * N2LPES , HWTOMX, HWTNMX, TWTOMX. 

8 PSETI , PSFT2 * TWTNMX i TOTWMX, TOTWAT, TOTPOW, 

9 N2TEM 


C 


c 

e 

c 

c 

c 

e 

c 

c 

e 

e 

t 

t 

c 

c 

c 

c 


END 


COMMON 

/CvtSS/ TLSN0M(Lx2), 

RH0REG(LX2) . 

TKFTEM(LX2), 

TKFPRS(LX2 j , 

1 

TAU (LXV) * 

WTO 2 

(LXV), 

WTN2 

(LXV), 

02MWT (LXV), 

2 

02LWT (LXV), 

II2L4T (LXV), 

WDOTOH (I.XV ) , 

WDOTNN (LXV) , 

1 

WOOTOR(LXV), 

WOOTNR(LXV), 

WDT02 (LXV), 

WnTN2 (LXV), 

4 

TK02DPILXV). 

TKn20P(LXV) . 

PCOXWD ( l.XV ) , 

PCN2WD(lXV), 

S 

02RIIO (LXV). 

N2RH0 (LXV), 

02TRMP ( I.XV) , 

HPTENP ( LXV ) , 

6 

00DM02 ( LX V ) . 

DP0UO2(LXV), 

D0DMN2 ( LXV ) , 

DPDUN2 (LXV ) , 

T 

02H (LXV). 

II 2H 

(LXV), 

ODTOR (LXV), 

OOTNR (LXV), 

8 

HWAT02 ( (.XV ) . 

UWATN2 ( LXV ) » 

ODTTXO ( LXV ) , 

OOTTKN ( LXV ) , 

9 

TWAT02 ( LXV ) . 

TWATN2(LXV), 

RH0END(LX2) , 

WTRSI 0 ( LXP ) » 

T 

VOLTK (I.X2 ) . 

ARETK (LX2 ) » 

002LK (I.XV), 

QN2LK (LXV), 

A 

ORCODO(LXV), 

OREGON (LXV ) » 

WTVNTO(LXV), 

WTVNTHILXV , 

B 

T0TWTLILX2). 

DITK 

ILX2), 

DIVJ 

I I.X2) , 

ROFTU (1X2), 

C 

WTPV (LX2). 

HTRFLX(LX2)» 

UN01AILX2), 

PL SNOM ( LX2 ) , 

D 

HTROIA (LX2) • 

HTRLNG ( LX2 1 * 

TIM 

(LXV), 

TNOMOP ( LXV ) 


***** 

* HD&YS - DURATION OF MISSION IN DAYS 

* NCREW - NUMBER OF PERSONEl IN CREW 

■* NRPRf-S - MUMBeR Op AIRLOCK RePReSSURATIOHS 

* NDARES - number nr OAyS SUPPLY of RESERVE 02 and N2 

.* 02FNOM - OXYGEN REOU I RED FOR CREW - LBS PER MAN-DAY 

■* GLKRAt - VEHICLE GAS LEAKAGE RATE - LBS PER DAY (AS AIR) 

'* TlSNOM - NOMINAL 02 OR NR DELIVERED TEMPERATURE 

* * RllODEQ - 02 OR N2 INITIAL LOADED DENSITY 

* TKFTEM *02 OR N2 FINAL TAHX TEMPERATURE 

* TKFPRS * 02 OR N2 FINAL TANK PRESSURE 

•* TDIVR - LSS ENVIRONMENTAL TEMPERATURE (AMBIENT) 

* CABVOL - CABIN OR AIRLOCK VOLUME - CU.FT, 

:* 

***** 
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PR0CEDURE DEFIN1TI0N PR0CESS0R - CENG 


I CENG* PRoC 

Z C 

1 PARAMETER NECDL e 10 

N C 

•5 REAL MIXRAT« ISP 

6 C 

7 COMMON /CEN6/GITEMP,SIPRES.THRUST,PSUBC .EXPRAT.MfxRAT.NENG. 

8 I 1SR fWDOT .'T1RWT .ENGWT .WDOTl t 2 ) »WDOTT(2 ) , 

9 2 WDOTU(NEcDL»2) 



10 

C 





II 

C 

***** 

CENG VARIABLE DEFINITION 


12 

e 





11 

t 


OjTEltP - 

GAS INLET TEMPERATURE 1 INPUT). 


IK 

c 



GAS INLET PRESSURE (INPUT), 


1 9 

e 


GtPREs - 


16 

c 





17 

c 


THRUST - 

ENGINE THRUST (INPUT), 


18 

t 





19 

t 


PSUBC - 

CHAMBER PRESURE (INPUT). 


20 

c 




21 

c 


EXPRAT - 

EXPANSION RATIO (INPUT). 


22 

c 




w 

27 

c 


MIXRAT •« 

MIXTURE RATIO (INPUT). 

2M 

c 

* 



1 

03 

03 

as 

c 


NENG «. 

NUMBER OF ENGINES. 

26 

27 

c 

c 

:* 

* 

ISP - 

SPECIFIC IMPULSE (CALC IN ENGINE j i 


28 

c 

•* 


FLOW RATE (CALC IN ENGINE), 


29 

c 

:* 

WDOT ■- 


■ 70 

c 

■* 




11 

c 

•* 

T1PWT - 

TOTAL IMPULSE PROPELLANT WEIGHT (CALC IN ENGINE). 


12 

c 

:* 


ENGINE WEIGHT (CALC IN ENGINE). 


11 

c 

:* 

ENGWT - 


74 

c 

•* 




7S 

c 

•* 

WDOTl - 

FLOW RATE FOR 02 AND H2 FROM ENGINE TO TAPi 


16 

c 

.-* 




17 

c 


wdott - 

FLOW RATE FOR Og AND H2 FROM TAP THROUGH REST 


18 

' c 

.•*#*** 


OF SYSTEM. 


79 

c 





MO END 
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PR0CEDURE DEF1NITI0N PR0CESS0R - CFLRAT 


I CFLRAT* PRflC 

; 2 c 

1 COMMON /CFLRAT/ EQRT (6*2 j tLFRT( 1# 7) 

: M c 

5 EQUIVALENCE {EQRT ,wFLOS 

6 I (EQRT ( 2* I ) * WFL06 ) * ( EQRT ( 2. 2 ) * WFLOS 

I 7 2 (EQRT 0*2} * WOTPTF ) * (EQRT (N * I ) * WFLO I 

6 1 (EORTtSf I ) *WFL02 ) , (EQRT (S , 2 ) , WFLOM 

9 H ( EQRT (6 *2) tWOHXTF) 

> 10 c 

I I END 


) « (EQRT ( t * 2 ) « wFLOT ), 
)«(EQRT(1*I)* WOTPTO) * 
) • (EQRT (Rt 2) tWFLOT ), 
),(EQRT(6,I),WDHXT0), 
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****«*«• Pj£0CEDURE DEFINITI0N PR0CESS0R - CFU1D 


1 cfuuid* PFOC 

2 C 

1 C 

4 END 


W 

I 

co 

oo 
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FUNCTI0N CFTW 


V 

co 

CD 



i >2 
11 
m 
is 
16 
1 17 
18 
I 1 9 
20 
21 

1 22 
21 
2W 
l 2S 
26 
l 27 
28 
29 
10 


c 

c 

c 


c 

c 


FUNCTION CFTH (D,p,IDV) 

REAL KI,K2»KT,KN 

DIHENSION K| (N),K2t4),KS(4I,K4<4),CI<4>,C2('0,Cl(<0,C4(4) 

data Kl /0, 040*0. 0S7* 0,071* 0.090/ 

DATA K2/0, OS 7*0. 071.0, 090*0, 107/ 

DATA Kl/I, 000*2. S00.1. TOO, S.SOO/ 

DATA kM/2,S00*1.1O0*S.S00*7,70O/ 

DATA Cl /I ,7S0»-1.9S0*S.710,8.9IO/ 

DATA C2/1.9S0»S. 710,8.9 to, I2.TS/ 

DATA Cl/0,800* I .son, 2. Son, l.SOO/ 

DATA C9/I ,soo,2.son,i.soo*M.soo/ 

SET I Dv TO EXTRA HEAVY IF NOT INPUT 
IF (IDV .EG, 0) 1DV = 4 
IF (O.LE. I . ) GO TO 10 
IFfP.fiT, 100.0. AND. D.GT.i;S) GO TO S 
IF(P.GT. 1000.0. AflD. O.LE, l.Sj Go TO S 
CFTW a K I ( IDV) *n*0*D ♦ Ct(IOV) 

RETURN 

S CFTW = K2 ( IDV ) *0*0*0 ♦ C2 ( IOV) 

return 

10 IF (P.GE, looo, J GO TO IS 
CFTW = K1 ( I DV I *0 ♦ CKIDV) 

return 

IS CFTW = K4 ( IDVJPD + C4{IDVi 
RETURN 
F.ND 


I 
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PR0CEDURE DEFINITI0N PR0CESS0R - CFUEL 


******** 


1 

2 
7 
4 
■5 
6 
7 

e 

9 
! 0 

I I 
12 

II 
m 
is 
16 

17 

18 

19 

20 
21 
22 
27 

24 

25 

26 

27 

28 
29 

70 

71 

72 
77 

74 

75 

76 

77 


'CFUEL* PROC 

c 

PARAMETER .LFC » 1 2 * LFO e 2 

c 

REAL HRFC 
C 


COMMON 

/CIFl'EL/ SRCFC . 

HRFC t 

P0WT8T, 

1 

PK4MAX* 

0FCT07 • 

QOTFC . 

2 

tfhfc i 

PFOFC * 

PFHFC , 

7 

OQAHINf 

TKOHAX, 

TKHMAX, 

4 

WOTCFM* 

WOCMP • 

WHCMP , 

5 

WORSRV* 

whrsrv, 

QLFAKO, 

6 

hovemt. 

WhVENT, 

SPWTI . 

7 

SPWTFC* 

fcwct , 

PRFCOP. 

8 

FCVOLT 




c 

COMMON /CyFL'EL/ 

1 

2 
7 

4 

5 

6 

7 

8 
9 
T 
I 

B 

C 

c 

C :***** 

C '* 

C •* 

c ***** 

c 

ENO 


WRP UFC),WOTFCO(LFC> 
QAVAIL(LFC)»W0TF2I(LFC) 
TK02WO(LFC).TKH2WOtLFCI 
RHOT02(LFC),RH0TM2(LFC) 
TKO (LFCt.TKH (LFC) 
G| 0[>TR( LFC ) »0I HOTR(LFC) 
Q20pTR(LFC)f02H0TR(LFC) 
CSn''FOILFC),CSBVFH(LFCI 
GSI'flR (LFC)»DOANET(LFC) 
WTReS UFD)*VOLTNK(LFD) 
GLKH (LFC).WRTOTL(LFO), 
WCIRCP(LFO),RHOFTU(l.FD) 
WORFP (LFO.WHRFP U.FC) 
PRGRAT(LFDI»PRGTIM(LFDI 


WRFORP . WOCONS, WHCONS, 
TF2IIN * TF2I01U TFOFC , 
QTOTR . OEXCES, WF2 1 MX* 
OMXTKO , OMXTKH* WOTCFO, 
POWMAX * OELTCP* WRRSRV, 
GLEAKH , WVHO » WVHH , 
SPWT2 * NFCOP . NFCSTB ♦ 
WDTFMX* PLSETI, PLSET2* 


.WDTFCH(LFC) 

* PRFCMN { LFt> ) 

* PCHD02 (LFC ) 
* DODV/0 (LFC) 
.htko (LFC) 
*WDT|FO(LFC) 

* WDT2F0 1 LFC ) 

* PH I F02 ( LFC ) 
.RMOFIL(LFO) 

* AREATK ( LFO ) 
DIATK (LFO) 

* WTPVT (LFO) 

* V J ANUL ( LFO ) 
.PRGINT(LFD) 


WDOTMX(LFO) 
TFCNOM(LFO) 
PCUDH2(LFC) 
OOOWH (LFC) 
HTKH (LFC) 
WDTIFH(LFC) 
WDT2FH ( LFC ) 
PHIFH2(LFC) 
RHOFUMLFD) 
OLKO (LFC) 
OIAVJ (LFO) 
WTVJ (LFO) 
TKtlXPT (LFO) 
PURGAS(LFO) 
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PR0CEDURE DEFINITI0N PR0CESS0R - CHEX 


w 


i 

4^ 


1 

2 
V 
4 
•5 
6 
7 
6 
9 

10 

11 

12 
II 

14 

15 

16 
17 
I 8 

19 

20 
21 
22 
29 

24 

25 

26 

27 

28 
29 

90 

91 

92 
99 

94 

95 

96 

97 

98 

99 
40 
4 I 
42 
49 

44 

45 

46 

47 

48 

49 
90 
St 
S2 
S9 
S4 

ss 

56 

57 


CHEX* PROC 
C 

PARAME7ER MHXsIOi 
( MXHS B 8*MHX*I, 
2 MXH9 s|6^MHXf|* 
9 MVH2 s 6*MHX»lf 
4 MVH6 =90*MHX*!> 


MXH2 a 2*HHX*t, MXH9 8 4*MHX*t, 
MXH6 3|0*MHX*(, I1XHT a(2«MHX*l, 
HXH I Oa I 8*MHx* I ♦ MXH I I e20»MHX* I * 
HVH9 a | 2*MHX ♦ I * MYH4 Blfl*MHX*l* 
MYH7 «96*MHX* I * I1YHB •342*MHX+I, 


MXH4 8 6*MHX*I« 
MXHB B(4*MHX*1. 
MXHO B22*HHX* 
MYHS 824*MHX»I* 
MYHO a48*MHX 


c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


REAL N7UU 

COMMON /CHEX/ HUMHEX* HE*C IT(MHx, 2 1 , HExCOT t MHX . 2 j » CPCLOF (MHx,2 ) , 

1 WDOTCF (MHX»2 ) * HEXH17(MHX,2) , HfXH07( MHX , 2 j , CPM07P ( MHX * 2 j ♦ 

2 WOOTtl (MHX, 2), EPSLNC(MHX,2), EPSLN1M MHX, 2) , EPSLNS ( MHX , a ) , 

9 HEXHIP(MHX,2) i HEXHOP (MhX» 2 ) « HfX j I P ( M hX , 2 1 , HEXcOP (MMX, 2 ) ♦ 

4 HXHM.LPtl'HXrR) * HXCDLP (MHX . 2 1 , HxMRAT I I'HX . 2 ) , HXASSY t MHX 1 2 j ♦ 

5 WGGFU (MHX, 2), WGGFX ( MHX ,2 ) , WG6SBT ( MHX . 2 ) , WHXTOT (MHX , 2 | , 

6 IISU (MHX, 2), N5SK (MHX, 21, NSUK (MHX, 2), UCOOE (MHX, 2), 

7 TCRU (MHX, 9, 2), FWOTHU ( MHX , 9 , 2 ) , FDPCU (MHX, 9, 21, 

8 CRU (MHX, 9, 2), H7UU (MHX. 9,2), UAU (MHX* 9,2), 

0 WOUAU (MHX, 9. 2), WTHXll (MHX, 9, 2), UNAMt 2 ,4 ) ,WDHX< 2) , 

7 . LHXI (4, I0),LHX2(4, 1 4 ) ,LMX9 IS ) ,UOA (MHX, 2), OH (HHX,2), 

A HXCODE (MHX, 2 ) , HLNGTH ( MHX , 2 ) 

DIMENSION (IOTHX (MXHO) , (IOTHY (MYHO) 

EQUIVALENCE (UOTHX ,HEXCt7),(l)07Hx(MxH2 ), HEXCOT), 

I ( UOThX ( MXH9 ), CPCLOF), (U0THX(MXH4 ) , WOOTCF ) , (UOTHX(MXHS ),HEXHIT), 
2 (UOTHX ( MXH6 ) *HEXHOT) , ( UOTHX (MXH7 ) ,CPHOTF ) , (UOTHX U1XH8 ),WOOTH ), 
9 (UOTHX (MXH9 ),EPSLMC), ( UOTHX (MXH 1 0 1 , EPSLNH ) , ( UOTHX (MXH I I ), EPSLNS), 
4 ( UOTHY ,TCRU ) , (U0THY(MYH2 1 , FVIOTHU ), (UOTHY (MYH9 ),FDPCU ), 

S(U0THY(MYH4 ),CPU ) , ( UOTHY ( MYHS ),MTUU ),( UOTHY ( MYH6 ),UAU ), 

6 (UOTHY (MYH7 ), WOUAU ),( UOTHY ( MYH8 ),WTHXU ) 

***** HEXHJT - HEX HOT INLET TEMPERATURE (HEX GAS GEH. TC) 

■* 

* MEXHOT •- HEx HOT OUTLET TEMPERATURE 

•* HEXC IT - HEX COLD INLET TEMPERATURE 

•# 

HEXCOT - HEX COLD OUT|_ET TEMPERATURE 

•* 

* HEX” I* ■- HE X HOT INLET PRESSURE (HE X GAS GEN. PC) 

•# 

•* HEXHOP — HEX HOT OUTLET PRESSURE 

•* HEXCIP - HEX COLD INLET PRESSURE 

!* 

* HEXCOP - HEX COLD OUTLET PRESSURE 

■* 

* HXHDL P - HEX HOT SIDE DELTA-PRESSURE 

■* 

HXCDLP -HEX COLD SIDE DELTA-PRESSURE 

■* 

* HXMRAT - MIXTURE RATIO (0/F) OF HEX GAS GENERATOR 

•* 

* WOOTH * HEX HOT GAS FLOW RATE 

•* 
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CHEX 


■58 

C 

•* WDHX 

59 

C 

:* 

60 

c 

*♦ WHXTOT 

61 

c 

-* 

63 

c 

■* HXASSY 

61 

c 

•* 

6W 

c 

HXCODE 

65 

c 


66 

c 

•* NOTE • 

67 

c 

•* 

68 

c 

•* 

69 

c 

*# 

70 

c 

***** 

7 1 

ENO 



- FLORAT ESTIMATE OF HEX FLOW rEOD (EACH FLUID) 

- HEX UNIT WEIGHT 

- HEX ASSEMBLY WEIGHT (HEX ♦ GAS GEN.) 

- HEX CODE SYMBOL NAME 

— THE ABOVE VARIABLES ARE SPECIED FOR OXYGEN IN 
THE FIRST WORD AND HYDROGEN IN THE SECOND 
WORD IN THE SECOND SUBSCRIPT. 
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******** 


PR0CEDURE DEEINITI0N PR0CESS0R - CHS0RC 


td 

i 

4 ^ 

00 


2 

e 

3 

4 

c 

5 

6 

c 

7 

8 
9 

10 

1 1 

c 

12 

c 

13 

c 

IN 

c 

IS 

c 

16 

c 

IT 

C 

18 

c 

19 

c 

20 

c 

21 

c 

22 

c 

21 

c 

24 

c 

25 

c 

26 

c 

27 

c 

28 

c 

29 

c 

30 

c 

31 

c 

32 

c 

33 

c 

34 

c 

35 

c 

36 

c 

37 

c 

38 

c 

19 

c 

MO 

c 

41 

c 

“2 

c 

43 

c 

44 

c 

45 

c 

46 

c 

47 

c 

48 1 


CIISORC* PROC 

PARAMETER MMSC S 10 
INTEGER HSTYPE 

COMMON /CHSORC/ HSTYPE <MHSC*2) * HSMRAT (MHSC,2> * HSOTEM (MHSC* 2) * 

1 HSAEE(MHSCt2)f HSPR£S(MHSC,2) * HSuGHT(MHSC*2) , HSGT0T(MHSC,2) , 

2 HSGCPE(MHSC*2). HSnfiES(MHSC*2) • HFTOT (2), OTREO (2>* 

1 NUMHSAf LHSKS.6), LKS2(5« 14) » ELCP0W(MHSC,2) 

HSTYPE - TYPE OF HEAT SOURCE 

= i , gas generator only 

= 2, HASTE HEAT INPUT ONLY 

= gas gen. and haste heat input 

HSMRAT - HEAT SOURCE MIXTURE RATIO 

H50TEM - HEAT SOURCE OUTLET TEMPERATURE 

HSAEE - HEAT SOURCE AVAILABLE ENERGY 

HSPRES - HEAT SOURCE OUTLET PRESSURE 

HSWGHT - HEAT SOURCE WEIGHT 

HSGTOT - TOTAL HOT PLUIO HEIGHT 

HSGCPE - SPECIFIC HEAT OF HOT FLUID 

HSORCQ - TOTAL MEAT REQUIRED FROM HOT FLUID 

HFTOT - CUMULATIVE HOT FLUID FOR SYSTEM 

QTPEQ - CUMULATIVE HEAT REQUIRED FOR SYSTEM 

NUMHSO - NUMBER OF HEAT SOURCE SETS 

LMS I -HEAT SOURCE OUTPUT LABELS 

ELCPOH - ELECTRIC HEAT SOURCE - WaTTS 

If! THE ABOVE VARIABLES The FIRST WORD OF THE SECOND 
ARRAY IS FOR OXYGEN* AND THE SECOND WORD IS FOR 
HYDROGEN. 


END 
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**** PR0CEDURE DEFINITI0N PR0CESS0R - CHTX 

j CHTX* PROC 


2 

C 




1 

C 




V 

c 

1 *' 



s 

c 

* 

THE VARIARLES IN CHTX ARE FOR OUTPUT USE AND ARE 

6 

c 

•* 

DEFINED 

IN S.R. HEATEX 

7 

c 

•* 



e 

c 

•* 

NOTE 

THE ABOVE VARIABLES ARE SPECIED FOR OXYGEN 

9 

c 

•*. 


THE FIRST WORD AND HYDROGEN IN THE SECOND 

1 0 

c 

•* 


WORD IN THE SECOND SUBSCRIPT. 

1 1 

c 

•* 



12 

c 

***** 



13 

ENO 





W 
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PROCEDURE DEFINITION PR0CESS0R - C10UNT 


I 


12 
i n 

14 
1 IS 
16 


CIOUNT* PROC 

c 


c 


c 

c 

c 

c 

c 

c 


COMMON /CIOUMT/ IOUNIT ( !4)«1IN»!0T 


EQUIVALENCE 
I (MtIRDI * I0UNIT ( 
2 ( MIIRR6 »I0UfilT( 
T(MTAPET.IOUNlT( 
4(NTAPE6f I0UNIT ( 


(MURDI ,I0UN1T( l>), 

5) )t(MURD4 ,I0UN!T( 4)), 

6) )*(NTAPEIiI0UNIT< 7)), 
9)),{N'TAPE4,I0UN?T(I0)|, 
2} ) * ( NT A PET f IOUNIT (13))* 


(MURD2 * IOUNIT I 2))» 
(KURDS • IOUNIT ( S ) ) . 
( NTAPE2 • I OUNIT( 8)), 
(NTAPES« f OUNIT( II))* 
(NTAPE8. IOUNIT) 14)) 


IOUNIT — AND ARRAY OF VALUES WITH ARE THE LOGICAL UNIT NUMBERS 
AS DETAILED IN SEC. 4,4.1 OF THE LMSC DIGITAL 
COMPUTER SYSTEMS MANUAL ( LMSC-68S 1 4T ) . 


END 


to 

I 

U1 
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PR0CEDURE DEF1NITI0N PR0CESS0R - CKEYS 


.CKEYS* PBOC 
C 

COMMON /CKEYS/ KEYI»KEY2 
C 

ENO 
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******** 


PROCEDURE DEFINITI0N PR0CESS0R - CMATRL 


2 

3 

' 4 

5 

6 

7 

e 

9 

10 

1 1 
12 

13 

14 
is 
16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

3 1 

32 
31 
34 

15 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

4 ? 

48 

49 

90 

51 

52 

53 

54 

55 

56 

57 


■.CliATRL* PRflC 

c 

REAL MIN7HK 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


COMMON/CHATRL/RHOU loi «RH01 ( 10) (RHOIS f 10) »M!NTHK( IS ) 


**** RHOL(I) IS THE DENSITY OF THE SELECTED LINE M&TL. (LB/CUlTT) 


I s I » FOR 321/347 STAINLESS STEEL 
I S 2 » FOR 22I9-T87 ALUM. ALLOY 
1 e 1 ,FOR 6Df,l-TL ALUM. ALLOY 
t s 4 , FOR INCONEL-718 
1 S S ,FOR TITANIUM TI-6AL-4V ALLOY 


*•• 


**** RHOt ( I j»TME DENSITY OF THE CHOSEN INSULATION MATRL. (LB/CU.FT) 

* OPTIMIZED LAYER DENSITY VALUES. 

* I s |, FOR DOUBLE ALUMINIZED MVLAR/SILK NET (SO layer/inch! 

* 1 = 2, for DOUBLE COLDI Zed MVLAR/SILK NET ( SO LAYER/INCH) 

* 1=3, FOR DOUBLE ALUMINIZED MYLAR/TISSUE GLASS (100-LAV/rN) 

* 1=4, TOR CRINKLED DBLE . ALUM. MYLAR/TISS. GLASS ( 30-LAY/IN) 

* I = S, FOR NPC-2 CRINKLED ALUM. MYLAR ( 40 LAYER/INCH) 

« 1=6, FOR SUPERFLOC ( 10 LAYER/INCH) 

* 1=7, FOR HICROSPHERES (104 MICRON DIA.) (PER CUBIC FOOT) 

« 1=8, FOR POLYURETHANE FOAM (PER CUBIC FOOT) 

* 1 = 9, FOR FIBERGLASS ( J . M ) { 800- 1 200 DEG.R) (PER CUBIC FOOT) 

* 

« RCF.KIDPk FOR THERMAL DESIGN 1 -lMSC-A84T882*Vol.2,2S JUNE I96T 

• l MICROSPMER. es' -DATA OF PARMLEv AND CUNNINGHAM, LM5C. 

• 

.**** 


RHOIS( II— DENSITY of the CHOSEN INSULATION MATRL. (LB/CU.FT) 
ON PER LAYER BASIS FOR SPECIFYING LAYER FENSITY, 


I '= |, FOR DOUBLE ALUMINIZED MYLAR/SILK NET (PER LAYER/INCH) 

I = 2, FOR DOUBLE GOLOIZEO MVUR/SILK NET (PER LAYER/INCH) 

I - 3, for doub l e aluminized mylar/tissue g l ass (per-lav/im) 

I := 4, FOR CRINKLED DOLE . ALUM, MYL AR/TI SS. GLASS (PER-LAY/IN) 
I = S, FOR NPC-2 CRINKLED ALUM. MYLAR (PER LAYER/INCH) 

I = 6, FOR SUPERFLOC (PER LAYER/INCH) 

I = 7 , For MICRoSpHERES (104 micron DIA.) (PER CUBIC FnnT) 

1 = 8, FOR POLYURETHANE FOAM (PER CUBIC FOOT) 

I = 9, FOR FIBERGLASS ( J. M ) ( SOD- 1 200 DEG.R) (PER CUBIC FOOT) 

REF.HIDBK FOR THERMAL DESIGN'-LMSC-A847882,N0L.2,2S JUNE IR 67 
(MICROSPIIERES'-DATA OF PARMLEy AND CUNNINGHAM, LMSC, 


*** 


MINIMUM THICKNESS DATA (INCHES) 
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******** CHATRU 

58 C 

59 £ND 


********* 
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PR0CEDURE DEFINITI0N PR0CESS0R - CM0T0R 


******** 


1 .cnoTOP* p»oc 
c 

REAL MEFFf HSS 

C 

COMMON /CM0T0R/MryPF»KEFF»«SS,P0NSTV*BWE6HT(J) 
C 

ENO 


) 

i 


w 

I 

►P* 

co 


i 


i 


> 


CO 

CO 


I 


03 

CO 


LMSC- 



SUBR0UTI ME CMPCAL 


w 

I 

cn 

O 


6337I7*TPFS. CMPCAL 
I C 


2 

C 


1 

C 

■* ROUTINE NAME - PRESSURE DROP COMPUTATION 

4 

c 

■* FOR ENTIRE CONFIGURATION 

5 

c 

•* ROUTINE LANG - FORTRAN V UNIVAC 1108 EXEC 1 

6 

c 

PROGRAMMER - R. BOLLINGER 1943 i02 26933 

7 

c 

•* DATE COOED • 3/17/70 

8 

c 


9 

c 


10 


SUBROUTINE CMPCAL 

1 1 

c 


12 


INTEGER gstate 

13 

c 


14 


LOGICAL PAGE* JP 

1 5 

c 


16 

c 


(7 


REAL NPSPR 

18 

c 


19 


INCLUDE CACCUM 

20 


INCLUDE CCNFIG 

21 


include ccntrl 

22 


INCLUDE CDCYCL 

21 


INCLUDE CENG 

24 


INCLUDE CHEX 

25 


INCLUDE CFUEL 

26 


INCLUDE CHSORC 

27 


INCLUDE CIOl'HT 

28 


INCLUDE CNAUES 

29 


INCLUDE CMOTOR 

30 


INCLUDE CONST 

31 


INCLUDE CPAGE 

32 


INCLUDE CPUMP 

33 


INCLUDE ctank 

34 


INCLUDE CTURBN 

35 


INCLUDE TARLOK 

36 

:C' 


37 

c 

***** INITIALIZE THE ROUTINE 

38 

c 


39 


IDX = 0 

40 


ISIGN = 1 

41 


JKM s 0 

42 


WGGTOT ( 1 j e 0.0 

43 


HGGT0T(2) = 0. 

44 


HFT0T1 1 ) :s 0.0 

45 


MFT0T1 2 ) -s 0.0 

46 


OTPEQ ( I ) s 0.0 

47 


OTPEq ( 2 ) s 0.0 

48 


Cl = 1 I52.0/(GRAVTY*PI**2) 

49 


IF (PAGE (0) j WRITE (IOTt6050j 

50 


WRITE <IOTi6020) 

51 


JP s PAGE (3) 

52 

c 


53 

c 

***** START OF CONFIGURATION PROCESSING LOOP 

54 

c 


55 


DO 1000 I l=| r ICNF 

56 


IOX = IDX ♦ ISIGN 

57 


MACH(IDX) = 0,0 
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■58 



MFLG|I0xj = 6H 

59 



CALL GETCONUOX) 

60 

C 



61 

C 


***** BRANCH TO THE REQUIRED CONFIGURATION TYPE. SEE CChFIC 

62 

c 


***** for branch definitions. 

61 

c 


, 

64 



60 TO I 100,200, 100,400, 450,500,450. 450,400*405»600»TOO»800»900» 

65 



1 210,250,270,1100), CFUNCT 

66 

c 



6T 

c 


***** SETUP THE GAS TYPE ***** 

68 

c 



69 


100 

IGAS s CFTYPE 

70 



GSTATE =ICHFIG(5) 

T 1 



IF (IGAS .EO. JKM) GO TO 1 10 

72 



JKM 2 IGAS 

77 



ISXGf! = 1 

74 



ISTRT ( IGAS j = IOX 4 1 

T5 



JX = 0 

76 


1 10 

CONTINUE 

77 

c 



78 



IF ( IGAS.EQ. 2. AND, GSTATE. EQ. 1) GO TO 1 | I 

79 



GO TO 112 

80 


III 

IF (PAGE ( 0 ) ) WRITE (I0T.605I) 

81 



WRITE HOT, 6020) 

82 



UP = PAGE ( 1 ) 

81 

c 



84 


1 12 

CONTINUE 

85 

c 



86 



IF ( I | ,EQ, | ) GO TO 999 

87 



IF ( IGAS. EO. 2, ANO, GSTATE. EQ. 1 ) 60 TO 999 

88 



PRES(IOX) r PRES ( IOX ISIGN) 

89 



WOOTN ( TDX ) '2 WDOTN(IOX-ISIGN) 

90 



TEMP(inx) 2 TEMP ( 1 DX - ISIGN) 

81 



GO TO 999 

92 

c 



91 

C' 


***** PROCESS AN ENGINE ***** 

94 

c 



95 


200 

WDOTN(IDX) 12 WDOTI(IGAS) 

96 



PRES ( I DX j 2 GIPRES 

87 



TEMP( IOX) 2 GITEMP 

88 



WEIGHT! IOX) r ENGWT 

99 



GO TO 999 

100 

c 



lot 

c 


***** PROCESS AN APU TURBINE UNIT ***** 

102 

c 



101 


210 

WOOTN (IOX) 2 WOOTI(IGAS) 

104 



PRES ( IOX ) 2 HEXCOP ( | , IGAS ) 

105 



TEMP( IOX) 2 HEXCOTH, IGAS) 

106 



GO TO 999 

107 

c 



108 

c 


***** PROCESS A FUEL CELL ***** 

109 

c 



i 10 


250 

WOOTN! IOX) = WOOTI(IGAS) 

1 1 1 



PRES (IOX) 2 PRFCOP 

1 12 



TEMP ( IOX ) s TFCNOtl(IGAS) 

111 



ISIGN r | 

114 



GO TO 999 

115 

c 
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to 


116 
117 
I 18 

119 

120 
121 
122 
121 
I 24 
I a«s 
126 

127 

128 
129 
110 
111 
na 
in 
114 
ns 
116 

117 

118 
119 

140 

141 
I 42 

1 43 

144 

145 

146 

147 

1 48 

149 

150 

1 5 1 

1 52 
151 

154 

155 

156 

157 
I 58 

1 59 

160 
I6| 
162 
161 
164 
I 65 
166 

167 

168 

169 

170 
I 7 1 
172 

171 


C 

c ***** PROCESS A LINE ***** 

C 

100 FLO B FRCOEF<lDXl*LOO(lDxj/DlAM(10x| 

LOV e CF7YPE/I0 
CFTYPE = .CFTYPE - LOV *' |0 
110 HOOTN(IDX) := WDOTtHlDX-ISIGN) 

TEHP(IDX) 5 7EHPU0X-ISI6N) 

GO TO 510 
C 

C ***** PROCESS A CONTROL ***** 

C 

400 FLO e FRCOEF ( IOX)*LOO( lOX) 

IDV e CFTYPE / 1 0 

CFTYPE :s CFTYPE - IOV * |0 

DjAM(lOX) = AMJNl (OlAMlIOX*!) lOfAHI JOX-I i > 

GO TO 110 

c 

c ***** PROCESS a regulator ***** 

c 

405 FLO s FRCOEF ( tOX )*LOD ( lDX ) 

IOV c CFTYPE /I0 

CFTYPE = CFTYPE - IDV * 10 

DIAM(IPX) = AMINI (01 AF ( IOX+I ) »DI AM( JDX»I J ) 

WDOTN(IDX) = WDOTN( IOX-ISIGN) 

TEHP(IDX) S TE|1P( IDX-ISIGU) 

C 

IX = IOX - I5IGN 

IF ( ApRES ( IGAS ) .EO. 0.0) GO TO 406 

DLPREG =. (APRES(IGAS) - ANOELP ( I GAS ) /2.0 ) - PRES(IX) 

PRES ( IOX ) E PRES ( IX ) ♦ ISIGN * OLPREG 
GO TO 561 

c 

406 CONTINUE 

OLPREG = .HEXCOPi | f IGAS j - PRE5(IX) 

PRES(IOX) a PRES ( IX ) ♦ ISIGN * OLPREG 
GO TO 561 
C 

■ C ***** PROCESS A FITTING ***** 

C 

450 FLO s FRCCEF(IDx) * LOD(IDX) 

LOV = CFTYPE/IO 

CFTYPE a CFTYPE • LOV * 10 

0 1 AH ( jOX ) S AMJNl (DjAK( if>x*l j *0 JAM! |OX»l l ) 

GO TO 110 

e 

c ***** PROCESS a tap ***** 

c 

SOO HOOTN(IoX) :B wpoTT(IGAS) 

LOV a CFTYPE/IO 

CFTYPE a CFTYPE • LOV * 10 

FLO a FRCOEF ( IOX )*LoO ( IOX ) 

TEHP(IOX) = TENP(lDX-ISlGN) 

OIAM(IOX) a AM In I (01 AM I IOX* I j »DIAMMGX*I i ) 

e 

C ***** COMPUTE LINE, CONTROL, FITTING OR TAR DELTA PRESSURE; 

C 


SIO IX S IOX - ISIGN 


LMSC-A991396 



I 


.CMPCAl 



ITU 



GO TO(520,550»»GSTtfTE 


ITS 

C 




IT6 

c 


***** DELTA PRESSURE WHEN GASEOUS 


ITT 

c 




IT8 

c 


CALC. RHO OP GAS 


IT? 


520 

CALL GSONST (IGAS.TEMPf IXj.PRESf 1X),FH0> 


180 



OELP := C 1 *F.LD* (WDOTNtlX 1/CNOPER ) **2/(RH0*DJAM( !DX^**4) 


181 

c 




182 

c 


***** t r pct. OF PRESSURE CHANGE EXCEEDS ONE PCT. - RECOMPUTE 


181 

c 


***** DELTA-P* IF Nor* COMPUTE THE NEW PRESSURE 


ISM 

c 




|85 



IF ( OELP/ ( PRES ( lx) ♦ DELPj - 0.01)560*560,510 


186 

c 




187 

c 


CALC. RHO OF GAS 


1 88 


510 

CALL GSDNST < IGAS, TEMP ( IX) , PRES t IX>*0ELP/2.0t RHO j 


| 89 



HELP = C 1 *FLO* ( WDOTN (IX) /CNOPER ) **2/IRH0*DlAM(IDX) **4 J 


1 90 

c 




t»t 

c 


***** again check pct, op pressure change, tF pct. exceeds 


192 

c 


* 2.8 PCT. COMPUTE the OELTA-P BV USE OF THE COMPRESSIBLE 


191 

c 


***** PLOW EQUATIONS; (REF.-RPL-T0R-64-25.V0L, i,rev.d> 


(94 

c 




|95 



IF ( OELP/ ( PRES ( I x ) ♦ OELP) - 0.028)560,560.540 


1 96 

c 




197 


540 

A := PI*DIAM( 10X1**2/576.0 

w 

198 



CALL COMFLO ( I0X.PRES1 IX) , TEMP ( IX ) * FLO* A * WOOTN ( IX j /CNOPER * I GAS* 

1 

|99 



1 OELP) 

cn 

CO 

200 



PRES(lnX) := PRES ( IX j ♦ ISIGN * OELP 


201 



GO TO 561 


202 

c 




201 

c 


***** OELTA PRESSURE WHEN LKJUID 


20M 

e 




205 


550 

CALL RH0L10 ( TEMP ( IX 5 * I GAS, RHO ) 


206 



DELP .= CV*F.LD*(WD0TN(IX)/CN0PER)«*2/(RH0*D1AM(10X)**4) 


.207 

c 




208 

c 


***** COMPUTE NEW PRESSURE 


:2D9 

c 


, 


:2 1 0 


560 

PRES(IDx) s PRES (IX) ♦ IS1GN*DELP 


121 1 

c 




212 

c 


***** compute the Gas mach numser 


211 

c 




|2 1 M 



IF(0STATE.E<3.2) GO TO 561 


2 1 5 

c 




216 

c 


CALC. RHO OF GAS 


217 



CALL GSONST ( IGAS.TEMP < IX) , PRES (I0X ) ,RH0 j 


218 

c 




219 



IF ( GSTATE.'EO. 1 j CALL V6VS {IDX.RHO* IGAS) 


220 

c 




221 


561 

CONTINUE 


222 

c 




221 

c 


***** COMPUTE LINE WEIGHT 


224 

c 




:225 



IF ( CFUNCT , EQ. 1 j GO TO 562 


.226 



IF (CFUNCT ,EQ,5) GO TO 562 


227 



IF (CFUNCT ,EQ,6) GO TO 562 


228 



IF ( CFUNCT , EQ.7) GO TO 562 


229 



IF (CFUNCT ,EQ.8) GO TO 562 


210 



GO TO 570 


211 

c 
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td 

i 

Ol 


212 

211 

:214 

211 

216 

217 

218 
219 

240 

241 

242 
241 
244 
:241 

246 

247 

248 

249 
.210 
21 ! 
212 
211 
214 
211 
216 

217 

218 
219 
260 
261 
262 
261 
264 
261 
266 

267 

268 
269 
.'270 

271 

272 
271 
274 
271 

276 

277 

278 

279 

280 
28 | 
282 
281 
284 
'281 
286 

287 

288 
289 


C 

C 

c 

c 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 


c 

e 


c 

c 

c 

c 

c 

c 


162 CALL LWEGHT(IDXrLDV) 

GO 70 999 

***** COMPUTE CONTROL* FITTING OR 7AP WEIGHT 

170 WEIGH7! I DX ) e CF7W (DI AM( IDX) *PRES( IDX) . 10V j 
GO 70 999 

***** PROCESS an accumulator ***** 

600 PRES(IDX) e APRES(IGAS) 

TEMP(IOX) a TEUP( IPX - ISIGN) 

WDOTN(IDX) s WDOTNUDX - ISIGN) 

INCXAC(IGAS) = IDX 
GO To 999 

***** PROCESS A TANK OR SUPPLY ***** 

700 CF7 :S I 

INDXTK(IGAS) = IDX 

!F(SIPRES(IGAS*CFTj) 720»7!0t720 

***** jp NO TANK INPUT PRESSURE IS INPUT USE THE VALUE CALCi 

710 SIPRES(IGAS,CFT) a PRES(IDX-ISIGN) 

GO TO 740 

***** CHECK THE TANK INPUT PRESSURE AGANIST THE REOUIRED 

* CALCULATED PRESURE. IF THE TANK INPUT PRESSURE IS LESS 

* THAN THE CALC. PRESSURE WRITE A DIAGNOSTIC MESSAGE ANO 

* SET THE TANK INPUT PRESSURE a THE REOUIRED PRESSURE^ 
***** IF NOT CONTINUE WITH CALCULATIONS. 

720 IF(SIPRES(IGAS,CFT) • PRES! IDX-IS16N)) 710*740*740 

710 WRITE (6*6000) SIPRES) IGAS.CFT) . PRESnDX-ISIGN) 

GO TO 710 

740 PRES(IOX) a SIPRES( IGAS*CFT) 

***** oo the same checks for the input tank. temprature! 

IP(5ITEMP(IGAS*CFT)) 760*710*760 
740 SITEMP( I6AS*CrT) s TEMP( IDX-ISIGN) 

760 TEMP(IDX) .a SI7EMP( IGAStCFT j 

WDOTN(IDX) :e WDOTNI IDX-ISIGN) 

GO TO 999 

***** PROCESS A PUMP ***** 

***** CHECK ISIGN TO SEE IF THE CONDITIONS ON BOTH SIDES OF 
***** THE PUMP HAVE BEEN CALCULATED, 


800 IF( ISIGN. LT.O) GO TO 821 
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•290 


ISIGM s »| 


■29 1 

C 



292 

C 

***** SEARCH FORWARD IN LIME FOR A SOURCE TANK 


291 

c 



:294 


DO 810 I2SIDX.ICNF 


295 


CALL GETC0M( 12) 


296 


IF (CFUNCT .EG. 12) 00 TO 820 


297 


BIO CONTINUE 


298 

c 



299 


WRITE (6,60 10) IDX 


100 


CALL EXIT 


101 

c 



■102 

c 

***** when a source tank IS found, setup pressure, temprature. 


101 

c 

***** FLOW rate AND FLAG TO CONTINUE THE CALCULATIONS, 


■'104 

c 



105 


820 WDOTNU2) = WDOTN(IDX-I) 


106 


IOT = 12 - | 


107 


IDX = 12 


108 

c 



109 


PRES ( tOxj S- SI PRES ( I GAS, I ) 


110 


TEMP ( IDX ) x SITEMRt IGAS* I ) 


11 1 


GO TO 1000 


112 

c 


HH 

in 

c 

***** COMPUTE THE WEIGHT OF THE PUMP, TURBINE, PROPELLANT AND 

1 

■114 

c 

***** MOTOR DEPENDING OH THE TYPE OF PUMP. 

Ol 

US 

:c 


cn 

fll6 

c 

***** CHECK CFTyPE FOR HIGH OR LOW PRESSURE PUMP 


117 

c 



118 


825 ISIGN s 1 


119 


PRES(IDX) = PRES(IDX+I) 


>120 


TEMP(inX) x TEMP(IDX*n 


121 


HDOTIIUDX) x WDOTh(IDX*|} 


122 

c 



121 


JOPTN = CFTVPE/IO 


124 


XFTYPE = CFTYPE - JOPTN * 10 


12S 

c 



126 


IF ( CFTYpE ,EQ,2) Go TO 840 


127 

c 



128 

c 

***** PROCESS THE HIGH pressure pump 


129 

c 



110 

c 



■111 

c 

***** COMPUTE THE PUMP OR TURBOPUMP WEIGHT 


112 

c 



111 


JJOPTIIGAS) sJOPTN 


114 


PTEMp ( IGASj xTEMP ( IpX j 


115 


PPRES(IGAS) sPRESUDX) 


116 


PPDCH( IGAS) = PRESdDXrlj 


•117 


PDELP s ABS (PRCS ( IDX- 1 1 - PRES(IOX)) 


118 


PPDEL(IGAS) =PDELP 


119 


PWDOT S VIOOTN(IDX)/cNOPER 


140 


PPWOT ( I GAS ) =PWDOT 


,14| 


CALL RHQLIQ( TEI1P ( IPX) , IGAS.RHO) 


■142 


PPRHO ( IGAS ) = PHO 


143 

c 

CALCULATE PUMP PARAMETERS 


144 

c 



145 


CALL PARPMP( IGAS, JOPTN, PDELP, PWDOT, PNPSH< IGAS), RHO,PMEF,V» 


146 


1 E, WT» PNSG* MSTG, NPSPR) 


147 


PMPEFF(IGAS) = PNEF 
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05 


:1MB 

149 

150 
15 | 
152 
Hi 
154 
iss 

156 

757 

148 

159 

760 
' 76 | 
762 

761 

764 

765 
166 
767 
168 
169 

770 

771 
172 
177 

174 

175 


178 

179 
ISO 
781 
182 
101 

184 

185 
106 
187 
788 
'189 

190 

191 

192 
197 
'194 

195 

196 

197 

198 
'799 
■400 
40 | 
•402 
407 

404 

405 


C 

c 

c 

c 

c 

c 


c 

c 

c 


c 


c 


PMPVOUIGAS) S V 

PHPOW ( IGAS ) = E 

PSPO(K.AS) = PIJSG 

PSTAGEt IGAS) - NSTG 

PNPSPR ( I GAS } = NPSPR 

PWEGHT (IGAS ) = WT * (CNOPER CNSTB V ) 

***** CHECK PTYPE FOR PUMP OR TURBOPUMP ***** 

IF(PTYPE.EQ. II 00 TO 810 

***** COMPUTE THE TURBINE WEIGHT 

CALL TtlR3N(IGAS.TRRwGT) 

TWEGHT ( IGAS j = TRBWGT * (CNOPER ♦ CNSTRY j 

***** COMPUTE THE FLOWRATE OF THE GAS GENERATOR AND tTS WEIGHT 

TMEAMI s (TITEIlPd) - TOTEMP(m/2.0 
TMEAH2 i (TITEMP ( 2) - TOTEMP ( 2 ) ) /2 . 0 
CALL CSUBPI (TMFANI iTMRATOI I ),CPEPI | 

CALL CSUBpl (TMEAM2,TMRAT0(2)fCPEP2t 
DLHTPI s CPEPI * (TITEMP! II - TOTEMR! | ) ) 

0LHTP2 = CPEP2 * ( TITEMP (2 ) - T0TEMPt2)l 
CALL RMOL 1 0 ( S ITEMP ( I . I ) , I . RHOLQ I I 
CALL RMOL 10 (S ITEMP (2f I I *2l°H0L02) 

BRACI a (0.185 * PPpELf t ) I /(RMOLOI * PMPEFFI I ) * TEFF(i)* DLHTP? S 
Cl a TMRATO( I )/( I .0 ♦ TMRATO ( I I I 
C2 a l.0/(|.0 ♦ TMRATCdh 
IF(PP0 El( 2),EO.0.0) PPDE(. ( 2 j s EPDFLP(2> 

IF(PHPEEF(2) .EO.O.O) FHPEFE ( Bis PE*F(2I 

BRAC2 = (0.185 * PPREL 1 2 ) ) / ( RH0LO2 * PMPEFF(2) * TEFF(2) * DLHTP2) 
Cl = TMRATO( 2 ) / ! | ,0 ♦ TMPAT0(2) ) 

C4 = 1. 0/0.0 ♦ TMRAT0I2)) 

C5 = BRACI * Cl 
C 6 r BRACI * C2 
C7 = BPAC2 « Cl 
C 8 r BRAC2 * C4 

D I = <CS ♦ C 8 ♦ C6*C7 - C5*C8 - 1.0) 

WFLOI a (WDOTI(I) * (C5*C8-C5) ♦ W00TI(2) * (*C5*CT})/0I •* CNOPER 
WF.L02 a (WPOTI(I) * (-C6*C7) t W00TI(2| * (C5«CT - CT)j/DI*CN0PER 
WFLOI s (WDOTI(I) * tC6*C8 - C6) ♦ W00TK2) * l-C6*C7) } /D| *CNOPER 
WF L04 a (WDOTI(I) * (-C6*C8) ♦ WOOTIC2) * (C5«C8 - C8))/D|*CN0PEP 
WOGGFR ( I I s (WFLOI ♦ KFL01I * CNOPER 
WDGGFR ( 2 1 B (WFL02 ♦ WFL04 1 * CNOPER 

KK = 0 

WOOTGI = 0,0 
W00TG2 := 0.0 

DO 815 12 B I *NDCYCL»2 
KK s KK I 

WFL05 a (WP0TJ(KK»| j * (C5*C0-C5) ♦ WD0TJ(KK f 2) * (-C5*CT) j/D| 
WFL06 a (WP 0 TJ(KK,I) * (-C6*C7) ♦ WD0TU(KK,2) *• (f 5 *C 7 —C 7 ) j/Dl 
WFLo 7 a (WPoT«MKKfl> * (C 6 *C 8 - C 6 ! » wDoT J{ KK, 2 ) •*• ( -C 6 *CT j ) /D I 
WFL08 a (VPOTJ(KK,l) .-*. <-C 6 *C 8 ) ♦ WD0TJ(KKt2) * (C5*C6 -C 8 J »/DJ _ 
WFL057 s (WFL05 + WFL07 I /CNOPER 
WF.L068 = (WFL06 * WFLOe I /CNOPER 
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406 



WOOT6I = WD0T6I WFL047 * DCYCLE(I2t 

407 



WOOTG2 = WD0TG2 WFL068 * DCYCLEII2) 

408 


OD 

CONTINUE 

409 

C 



410 



GWEGHT ( 1 } s HOOTGI * CNOPER 

■41 t 

C 



4ia 



6WEGHT(2) s HD0TG2 * CNOPER 

417 

c 



414 

c 


***** COMPUTE SYSTEM WEIGHT 

4 1 4 

c 



416 



ATERM s 17,824204.. (0.01 1 (7827*TGGPC( IGAS i) ♦ (l.8672«2TE-4 

417 



((TGGPC( IGAS >**2) 1 - ( 1 . 108427E-8 * (TGOPC( IGAS )**7j) 

418 

c 



419 



BTERM = 7.9470262 - (. 074676 t 98*TGGPC( iGAS tt ♦ (6.4684644E-4 

420 



1 (TGGPC( IGAS 1**2 ) ) - (7.7946E-8 * (TGGPC( IGAS )**7)) 

421 

c 



422 



WTGGA = ATERM + BTFRM * wDGGFR ( 1 GAS j /CNOPER 

427 



WGTGGA { I GAS ) = WTGGA * (CNOPER ♦ CNSTBY) 

424 



HE I GMT ( IOX ) - PWEGHT(IGAS) * THFGHT(IGaS) ♦HGT6GA ( IGAS ) 

42S 

c 



426 



GO TO 999 

427 

c 



428 

c 



429 


870 

CONTINUE 

470 



HEIGHT (IOX) s PHEGHT (IGAS J 

471 

c 



472 



GO TO 999 

477 

c 



474 

c 


***** PROCESS (.OH PRESSURE SYSTEM 

474 

c 


***** FLUID TRANSFER PUMP 

476 

c 



477 


040 

continue 

478 



IF((SYSNI'M,ED.2,0R.SYSHUM.EO.4t .AND. (SCRIT.EQ.2) j GO TO 841 

479 



CALL FINTAB ( NTBID ( 1 4 ) ♦ I GAS ) 

440 



XTAB(I) 8 TPEFF (IGAS)* 1 00.0 

44| 



XTAB(2) s TpNPSH(IGAS) 

442 



IF (TPOELPf IGAS) 1860,840(860 

447 


840 

TPDELP ( IGAS j 3 PRES/IOX) - pRES(IDX-|j 

444 


860 

IF (TPHDOT (IGAS) 1880. 870, P80 

44S 


870 

TPHOOT ( jGAS ) = WDOTN(lOX) /CNOPER 

446 


880 

XTAB( 7) r TPOEI.P ( IG AS ) 

447 



XTA9 (4 ) S TPHDOT (IGAS) 

44e 



TPHGHT(IGAS) 3 MIPE(4,XTAB)*(CH0PEP ♦ CNSTBY) 

449 

c 



440 

c 


***** ELECTRIC MOTOR FOR TRANSFER PUMP 

441 

c 



442 



CALL FINTAB (NTB1D( 16) ) 

447 



CALL RH0LIG(TEMP ( IDXt , IGAS.RHO) 

444 



HP t (44.0*tm0TN(l0xi*(PRES(!0X) - PRES tlDX-t t i /t440.0*PEPMRHO* 

444 



1 MEFF) 

446 



XTAB ( I ) s Hp 

497 



XTAB ( 2 ) :r MSS 

448 



EUWOT = MIPE(2»XTAR) * (CNOPER ♦ CNSTBY) 

449 



HE I GUT ( IDX) = EMHGT ♦ TPWGHT(IOASI 

460 

e 



461 



KK s 0 

462 



BWEGHT ( IGAS j s 0.0 

467 

c 
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******** 


464 

»46«> 

466 

■467 

468 

469 

470 

471 

472 

473 

474 
479 

476 

477 

478 

479 

480 

48 | 

482 

483 

484 

485 

486 

487 

488 

489 

490 

49 | 

492 

493 

494 

495 

496 

497 

498 

499 
900 

50 t 

902 

903 

904 

905 

906 

907 

908 

909 

910 
■911 

912 

913 

914 

9 1 5 

916 

917 

918 

919 

920 

921 


C 

C 

c 

c 

c 

c 


c 

c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


DO 890 12 = I »NDCYCL*2 

yy s kk ■+ 1 

HP = l44.0*WD0TJ(KK,IGAS)*(PRESdDXj - PRES(!DX ■- I > i/(990.0PPEFF* 

1 RHO*MEFE) 

PB 2 HP*746,0«DCYCLE< 123/3600, 0 
BWEGHT < IGAS ) = 8WEGMT ( I GAS ) ♦ PB/PDNSTY 
890 CONTINUE 
GO TO 999 

841 CONTINUE 

WElOmUDX) = WC1RCP (IGAS j 
GO TO 999 

***** PROCESS A HEAT EXCHANGER ***** 

900 IFdSIGN.GT.03 GO TO 910 

WRITE (I0T, 60091 ISIGN 

910. CONTINUE 
JX = JX ♦ | 

JHX c UX 

WDOTHdnXj :B WDOTN ( 10X-IS1GN j 
WDOTCF(JX,IGAS) = WDOTN(IDX) 

UCODE ( JX 1 1 GAS ) 2 CODEdDXI 

HXOLP s HEXCIP(JX* IGAS) . HEXCOPI JX»!GAS) 

IF(HXDLP.GT.O.O) GO TO 9M 
UCOOE(JX, IGAS) = 6HU0NE 
PRES(IOX) = PRESdOX-l) 

TEUP(IDX) 2 TEMP(IDX-I) 

GO TO 1000 

9 d CONTINUE 

HEXCOP I JX ? IGAS j = PRES ( IDX - I) 

HEXC 1 P ( JX , IGAS ) = HEXCOP(JX,IGAS) ♦ HXDLP 
IF (SCRIT .EO. I ) GO TO 913 

IF ISYSnUm ,E0. 2 .OR, SYSNUH ,E0. 41 GO TO 912 
913 CONTINUE 

COMPUTE HEATEX PARAMETERS 

CAUL HEATEx(IGAS,JHx,vOOTN(IOxl fHExHIT(Jx,IGASj,HExCIT(JXi!GAS», 

| H£XM0T( JX, IGAS ),HEXCOT(JX, IGAS ),HEXHIP { JX,lGAS),HEXCIP(JX f IGAS 1* 

2 HEXHOP (JX, IGAS I, HEXCOP (JX, IGAS I.HXMRAT ( JX, IGAS I.WOOTH |JX,I6AS), 

3 WHXTOT { JX, IGAS I ) 


***** COMPUTE THE GAS GENERATOR ASSEMBLY WEIGHT ***** 
CALL GAS0EN(JX, IGAS) 

912 CONTINUE 


C 


TEMP d Dx) 2 HEXCIT( JX , I GAS ) 

DLPRES 2 HEXC IP (JX* IGAS ) - HEXCOP( JX, IGAS) 
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******** CMPCAL >*****«**- 


a 

I 

ui 

<x> 


! <522 
.521 
524 
i S2*5 

526 

527 
1 .528 
'■529 

570 
; 5ii 
1 512 
511 

1 sm 

515 

516 

517 
i 518 

579 
, 540 
54 | 
542 
i 541 
. 544 
545 
, 546 

547 

548 

549 
' 550 

551 

552 
551 
554 

; 555 

556 

557 
, 558 

559 

560 
56| 
562 

561 

564 

565 

566 
1 567 

568 
1 569 

570 

571 

572 
571 
574 


575 

576 

577 

578 

579 


PRES(IDX)= PRES(IDX.ISIGM) ♦ DLPRES*IS!0N 
WEIGMTUOX) = WHXTOTt JX* IGAS ) 
c 

c ***** Efjo of configuration processing loop ***** 


c 

c 

c 


999 CONTINUE 

IE (.HOT, PAGE ( I ) ) GO TO 1998 

*** PAGE HEADER HAS BEEN MOVED TO STATEMENT GROUP f 00 


1998 CONTINUE 

KFUNCT = FNAME(CFUNCt) 

WRITE ( I OT, 6010 (KFUNcT, CODE ( IPX ) , CFTYPE.CN0PER.CN5TBY* tStGN. IDX. 

1 IGAS.GSTaTE, FRCOEF ( TOX ) , LOO ( IDX j , 0 f AH( IDX ) , 

2 ITHICK(lDX) ,pRES(IOX) .TEMPI IDX),WD0 Tn(1DX), 

1 WEIGHT(I0X),M6CH(!DX),HFLG(IDX) 

IF (PRESU0X1 ,GE, D. .AND. TEMPtlOXl ,GE. 0,1 60 TO 998 
WRITE (I0T f 6O40) 

CALL EXIT 

998 IF (CFUMCT ,E0, 111 IDX e IDT 
C 

270 CONTINUE 
1000 CONTINUE 
1100 CONTINUE 

C USEO 0V WEIGHT SUMMARY OUTPUT 

KHENO r IDX - I 
KOENq = 1HSTT - 2 
C 

c 1 F((SySHUM.E0.2.0R,SYSNUH,E0.4) .and. (SCRtT.EQ.2i) GO TO 1150 

C OUTPUT THE HEAT EXCHANGER ANO GAS GENERATOR DATA ***** 

C 


CALL OTpHEX 
C 

C OUTPUT THE PUMP AND TURBINE DATA ***** 

C 


CALL OTPPMP 
C 

CALL OTPTRB 
C 

1(50 CONTINUE 
C 

RETURN 


c 

C ***** OUTPUT FORMATS 

C 

6000 FORMaTCO *DIAGN0STIC* TANK INPUT PRESSURE IS LESS THAN THE REQUIR 
1E0 PRESSURE. TANK PRESSURE SET s RECUI9ED PRESSURE, i/tBX* *TANK IHP 
RUT pressure = ' ,F7.2»'* REQUIRED PRESSURE = '.FT. 2) 

C 

6005 FORMAT ( • 0 **ERROR** ISIGN ='» II. 'THERE IS A CONFIGURATION ERROR • / j 
C- 

6010 FORMAT! >0 *ERROR* A PUMP WAS- ENCOUNTERED BUT NO TANK CAN BE FOUND, 
I PUMP CONFIGURATION INDEX NUMBER = >,I1) 

C 

6020 FORMATCO F CODE Ft NO NS jS IDX G GS FCOEF L/0 

I DIAM ITHICK PRES TEMP WOOT WEIGHT MACH M 

2FLAG i /i »| 
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»****♦« CHPCAL. ******** 


S80 C 

set 6018 F0RMAT<axA1*2xA6»11»6m,p9,6«P!2,4,2FB.U#2F9,2*P?.2»F9.1»Ft0.t* 

S 82 lIXfAg) 

sei c 

SON 6040 FORMAT (T44» '*** TERMINATE « NEGATIVE TEMP. OR PRES. *<►*•> 

<565 C 

S8ft 60S0 F0RMAT(/T18» '*** SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAMETE 

SOT IPS ***') 

SOB C 

<309 60S I F0RMAT(/T12,»*** SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAMETE 

S90 IRS - CONTD. ***' ) 

SR I C 

■S92 ENO 
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****** PR0CEDURE DEFINITI0N PR0CESS0R - C NAMES 

t CNAME9* PROC 

i 2 C 

1 INTEGER TNAME 

i M C 

•» COMMON /CNAMES/ FNAME<UW WM9W LH2U2)* L2a»?i, 

6 I L4(4f I I ), L*> ( M **S ) ♦ U(4»4)t LTlRtai)* L8(40>» L9 (4*S) • U0»«l*9i* 

7 2 LJM4»20)» L I2(4f 28 ) » UV<*,2B)t JF LU1&(2»1)# KFLU1D(2»2) 

8 C 

1 9 C NAMES ARE OIvEN IN S.R. STODTA 

10 c 

'll END 


r 

Ol 
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******** SUBR0UT1NE C0MFL0 


1 

c 



2 

c 


* ROUTINE NAME - COMPRESSIBLE FLOW EQUATIONS * 

1 

c 


•* EVALUATION ROUTINE * 

4 

c 


•* ROUTINE LANS - FORTRAN V UNIVAC 1108 EXEC 2* 

S 

c 


•* PROGRAMMER . R, BOLLINGER 1941 102 26911 * 

6 

c 


■■* DATE CODED - 1/IO/TO R 

7 

c 



e 

c 



9 



SUBROUTINE COMFLO(IDX,P,T,FLD,A.WDOT,N,0ELP) 

10 

c 



1 1 

c 


***** EXPLANATION OF the CALLING SEQUENCE 

<2 

c 


* 

11 

c 


* P - PRESSURE 

1 4 

c 


•* ' 

IS 

c 


* T - TFNPRATURE 

16 

c 


•# 

17 

c 


* ELD - RESISTANCE COEFICIENT 

18 

c 


•# 

19 

c 


* A - AREA 

20 

c 


* 

21 

c 


* HOOT - FLOW RATE 

22 

c 



21 

c 


* N - GAS TYPE NUH8ER 

24 

c 


N s 1 FOR OXYGEN 

2S 

c 


N = 2 FOR HYOROGEN 

26 

c 


* 17 FOR HE 

27 

c 


-* 

28 

c 


***** OELP - COMPUTED PRESSURE DROP 

2.9 

c 



10 



LOGICAL OIAG 

11 

c 



12 



REAL Ml, M2, M|MIN* HIMAX 

11 

c 



14 



INCLUDE CCNFIG 

IS 



INCLUDE CIOt'NT 

16 



INCLUDE CONST 

17 

c 



18 




19 

c 



40 



HFLG(IOX) = U8LNK 

4| 

c 



42 

c 


***** compute gamma s specific heat at constant pressure/ 

41 

c 


* SPECIFIC HEAT AT CONSTANT VOLUME 

44 

c 


***** FOR A SPECIFIC GAS 

4S 

c 



46 



IF (PIAG!0,6HCoMFLoh WRITE (!oT,60IO) N ,P,T,FLD,A,WOoT,DELr 

47 



IF(N.E0,2) GO TO 60 

48 



CALL CSUBP(T,P,N,CP) 

49 



CPI = CP 

SO 



CVI = CSU8V (T ,P,N ) 

SI 



GMA = CPI/CVI 

S2 



GO To 6S 

SI 

c 



S4 


60 

GMA = HPTGAM(P,T) 

ss 

c 



S6 


6S 

CONTINUE 

S7 

c 
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COMFLO ******** 

■>0 

C 


***** COMPUTE MACH NUMBER AT PRIOR CONDITIONS 

59 

c 



, 60 



M2 s WOOT * SORTfFINDR<Nj*T/<fiHA*S»Avtv)i/(P*A*(44.0} 

6 1 

c 



62 

c 


***** COMPUTE RESISTANCE COEFtCIENT AT PRIOR CONDITIONS 

61 

c 



64 



FLDMAX = FL0DE0(M2,GMA) 

65 



OF = FLDMAX ♦ FLD 

66 

c 



’ 6T 

c 


***** TTTERATE TO FIND MACH NUMBER AT CURENT CONDITIONS 

60 

c 



69 



Ml MIN = I.E-IO 

1 70 



MIMAX = 1.0 

71 

c 



72 



DO 40 II = 1 * 20 

73 



Ml = (MIMAX ♦ NIMIN j/2.0 

74 



FAC = FLOCEQ (M ( » GMA ) - OF 

7*> 



IF(ARS(FAC) - 0,00005) 50,50* io 

76 


10 

IF(FAC) 20,50,30 

' 77 


20 

MIMAX = III 

76 



GO TO 40 

79 


30 

MIMIM = Ml 

00 


40 CONTINUE 

82 

V 


WRITE (6*6000 ) Ml 

03 

c 



04 

c 


***** COMPUTE THE PRESSURE DROP 

03 

c 



06 


50 

A 1 r Ml*«2 

07 



A2 : M2**2 

08 



P20P| = (MI/M2) * (2.0 ♦ (GMA - l.0> » A| )/(2.0 ♦ (GMA „ |.0>* A2) 

09 



DELP = P * ( I.0/P20PI - |,0) 

90 

c 



91 

c 


***** s ET FINAL MACH NUMBER FROM ITERATION 

92 

c 



93 



MACH(IDx) c Ml 

94 

c 



95 

c 


***** CHECK Mach NUMBER, flag Mach number greater than O.T 

96 

c 


* WITH ONE ASTERISK, FLAG MACH NUMBER GREATER THAN 

97 

c 


***** |,o WITH SIX ASTERISKS. 

90 

c 



99 



IF(MACH(!DX) - 0.3) 80,00,01 

100 


01 

IF(MACH(!DX) - 1.0) 82,83,83 

, 101 


02 

MFLG(inX) = JASTI 

102 



GO TO 80 

103 


83 

HFlG(IDX) = JAST6 

104 


00 

CONTINUE 

105 



IF <DIAG( 1 ,6UC0MFL0) ) WRITE (10T.60IO) ! 1 ,GMA, CP, FLDMAX, M| , M2, DELP 

106 



Return 

107 

c 



108 

c 


***** DIAGNOSTIC MESSAGE 

109 

c 



1 to 

6000 

FORMAT) IQ *DIAGNOSTIC* MACH NUMBER COMPUTATION FAILED TO CONVERGE 

III 



WHILE COMPUTING COMPPESSABIE FLOW EQUATIONS. MACH SET s »,EI2.7) 

112 

c 



113 

6010 

FORMAT (t*U4X,I5,IOX»6E|5.6) 

1 14 



END 
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SU8R0UTINE C0MPIL 


1 

2 

1 

4 

5 

6 
7 

e 

9 
10 
1 1 
12 
11 
14 

l«5 

16 

17 

16 

19 

20 
21 
.22 

23 

24 
29 
26 
27 
26 
29 
10 

11 

12 

11 

14 

15 

16 

17 

18 

19 

40 
4 I 
42 

41 

44 

45 

46 

47 

48 

49 

50 

51 

52 

SI 

54 

55 

56 
■57 


c 

c 

/* * * •*• * * it. -4 

* ROUTINE NAME 

*r4 

m 

******* •* *. * *■ *••*•:*■■* * 
DATA JNRUT, VERIFY AND ECHO * 

c 

•* ROUTINE .LANG 

m 

FORTRAN V UNJVAC 1 106 

EXEC 2* 

c 

programmer 

m 

R. BOLLINGER 1941 102 

26911 * 

c 

•* DATE CODED 

m 

APRIL FOOLS DAY 1970 

*- 

c 

* REVISED 

m 

JANUARY 11,1972 

* 

c 

* REVISED 

m 

JULY 1972 

•*• 

c 

•*' PROGRAMMER 


J. MCKAY 01941 201 

45178 * 


C 

c 


SUBROUTINE COMPIL 
C 

.LOGICAL UP, PAGE 
C 

INCLUDE CACCUM 
INCLUDE CAPIJ 
INCLUDE CCNFIG 
INCLUDE CCN7RL 
include CDCVCL 
INCLUDE CECI.SS 
INCLUDE CEIIG 
INCLUDE CFL'EL 
INCLUDE CHEX 
INCLUDE CHSORC 
INCLUDE CIOI.'NT 
INCLUDE CMOTOR 
INCLUDE CNAIIES 
INCLUDE CPAGE 
INCLUDE CPUI-IP 
INCLUDE CTAtiK 
INCLUDE CTURBN 
INCLUDE TANKWT 
C 

5010 format ( A6) 14 , 1 I5,1F5,0» 15, 2F5,0,5X , A6) 

5020 FOPMAT(IS,6FIO.O) 

5010 F0PMAT(3I5/7FI0.0/FI0.0) 

5019 FOPMAT(IS) 

5040 FORMAT! I IF6.n»6X,A6j 

5050 FORMAT ( IS,4FIO.O/IS,4FIO,0/4FIO.O/4FIO.O/5FIO.O/SFIO.O> 

5060 FORMAT (SI5/PFIO.O/8FIO.O/FIO.O) 

5062 FORMAT (2lS f 7F 10.0) 

5070 FORMAt(FIO.O) 

5080 FORMAT! IF 1 0,0* I5»1F I0»O*PT',O) 

5090 FORMAT(IS,5X»4FIO.O> 

5100 FORMAT! IS, 5X1FI0.0) ' 

5110 FORMAT ( 8F 1 0,0 | 

5120 FoRMAT(I5,SX,SFIO.O) 

5110 FORMAT(7F|0,0) 

5140 FORMAT ( I OFT « 0 ) 

5141 FOPMAT(2I5,6FIO.O) 

5 I SO FORMAT (4 15, 5F 1 0.0/ (7? 10,0) ) 

5 1 5 1 F OPM AT ( TF IO.O/5F 10,0) 

C 

6000 FORMAT! 'O', 1RX9A6//2IA6/2IA6/' '! 

6010 F0PMAT<1XA6, 2XA6, I Xl4»2XIS, 2X15*2X15, 2X,E 15, 8, 6XF7.2*6XF6.2»SXI5, 
I 9XF6.2,7XFS. I ) 

6020 FORMAT! '0 ‘DIAGNOSTIC* THE ABOVE FUNCTION COPE IS ILLEGAL') 
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COMpIL ******** 


i 

i 


******** 


l 


*>e 

■59 

60 

61 

62 

61 

64 

65 

66 

67 

68 

69 

70 

71 

72 
71 
7“ 

75 

76 

77 

78 

79 

80 
81 
82 
81 

84 

85 

86 

87 

88 

89 

90 

91 

92 
91 

94 

95 

96 

97 

98 

99 
100 
101 
102 
101 

104 

105 

106 
107 

ioe 

109 
I 10 
1 1 1 
I 12 
HI 
I 14 
I 15 


6010 FORMAT! 'O' »18X9A6/' ') 

6011 'FOPM A T('Oi»755, 'SUBC9ITTCAL APU DATA »//) 

6012 FOPMAT! 'O' ,751* 'SUPERCRITICAL APU BA7A • //) 

6040 FORMAT !54XI5,2X1A6/(46X£f 1.8, 2X1A6)) 

6050 FORMAT! '0'f18X9A6//) 

6051 F0pM A T<Tl8» I -'*716.'- 2 -',754,'- 1 -',772*'- 4 -',790,'- 5 -• 

I .TIOI.'HeAT EXCHANGER NUMBER ' /T J 1, • OXYGEN HYOROGEN OXYGEN HYOR 
20GEN OXYGrt! HYOROGEN OXYGEN HYDROGEN OXYGEN HYDROGEN' /) 

6052 F0PMAT(/////7|R. '- 6 -'*716,'- 7 -',754,'- 8 -'.772,'- 9 -',790. 

1 '- 10 -' ,7101. 'HEA7 EXCHANGER NUMBER • /Til, 'OXYGEN HYDROGEN OXYG 
REN HYDROGEN OXYGEN HYDROGEN OXYGEN HYDROGEN OXYGEN HYDROGEN 
1'/> 

6060 FORMAT (41X15, 10X15, 7X4A6) 

6062 Format < '0'//18X'*'9A6/ 19X'TAnK' 8XIFLUI0'9X'. .. D ! M E N s » 0 
I N S ... .'/ 19X'SHAPE'7X'TYPE'22X'(FEET)'/) 

6064 FORMAT (10X 2II2.6X IF'2,4) 

6069 F0PM A T(T4g, 'NUMBER OF HEAT EXCHANGERS INPUT =',I5//j 

6070 F0PMAT(9X|(1F9. I .1X4A6) 

6080 FORMAT! 42x14, I OXIS, 7X4 A6/4 (16X2E 1 5.8 »2X4A6/ j ,»0' .18X9A6///4 | 16X2EI 
15. B ,2X4A*/) , 'O' ,1BX9A6/// (16X2E 1 5 . 8 , 2X4A6 ) j 

6090 FORMAT (16X2EI5.8,2X4A6) 

6091 FOPMAT('0',47X,I5,I5X,'TANX HE I GHT-CONF I GURATlON OPTION CONSIDERED 
I ' /48X, 15, I5X, 'NUMBER OF TANK SHAPES IN CONFIGURATION' 1 

6100 FORMAT! '0'1SX9A6/' ') 

6101 Format < 1 0 * , T 1 0, 'OPER.TIME ' ,T24, 'NON-OPERATING ' ,T40, 'HIB-DEGRAD. • , 

1 T54, 'UNITS ORFF. I ,767, ' HORSEPOWER', T8l , 'AND. PRESSURE ' ,T98, 

2 'POUER-KW'.TI 10, 'REPPES.TIHE'/I 
6110 F0PMAT(T7,1EI5.8,IR,5X,4EI5.B) 

6120 FOPm A T ('0 * ERROR * DUTY CYCLE INPUT TOO LONG'/) 

6127 FOPMAT ( //T 1 8 » ' - 6 -',T36,'- 7 -',754,'- 8 -',TT2.'-9 -',790, 

1 '- 10 -',T|01, 'HEAT SOURCE NUMBER '/TIT, 

2 'OXYGEN HYDROGEN OXYGEN HyDR 
IdGEN OXYGEN HYDROGEN OXYGEN HYDROGEN OXYGEN HYDROGEN'/) 

6128 F0RMAT(T49, 'NUI'BER OF HEAT SOURCES INPUT =',J5//> 

6129 FORMAT (7 | 8 , ' - I -HT16,'- 2 -i,T54,,- 1 -<»T72»«- 4 -i,T9o»»- 5 -, 

1 ,TI01,'HEAT SOURCE NUMRFRi/TII. 'OXYGEN HYDROGEN OXYGEN HYDROGEN 

2 OXYGEfj HYDROGEN OXYGEN HYDROGEN OXYGEN HYDROGEh'/I 
6110 FORMAT < 9X1 019, 1x'lA6/(9X 1 0F9, 1 ,1X4A6) ) 

6140 F0PMAT(T52, 115, T70, 'MOTOR TYPE • /T52 , E 1 5 . 8, T70 , ' MOTOR EFFICIENCY,, 
t /T52,F.I5.8,T70, 'MOTOR SPEED ' /T52.E 1 5. 8 , T70, ' BATTERY POWER DENSITY 
• 2 ' ) 

6150 FORMAT ( 54x15, 2X4A6/I46XE 1 1.8, 2X4 A6 ) ) 

6160 F0RMAT(54XI5»2X4A6/54XI5,2X4A6/S4XI5,2X4A6/54XI5*2X4A6» 

I /(46XEI1. 8,2X446) ) 

C 

c *********** *************************** <. ********** ******************** 
c 

c ***** CHECK ' NBLK ' BEFOR DATA SETUP - INCLUDE ALL DATA BLOCKS •**' 

C ***** required FOR THE SYSTEM BEING STUDIED^ **' 

c 

:C ************************** ***************** ************************** 
C 

NIENTH = 0.0 
C 

c 

c ***** INPUT the configuration table 

c 

IF ( PAGE (0) ) wR!TE< 6,6000) ( L0( I , I) . 1= I .9) . ( (L ! ( I , J) , != t .21 j , J=l ,2) 
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COMPIL 


W 

05 

05 


116 

117 

lie 

119 

ISO 

121 

122 

123 

124 

125 

126 

127 

128 
129 
110 
HI 
112 
111 

114 

115 

116 

117 

118 
119 

140 
I 4 | 
142 

141 
144 
|45 

146 

147 

148 

149 

150 
IS| 
1 52 

151 

154 

155 

156 

157 


160 

I6| 

162 

161 

164 

165 

166 

167 

168 

169 

170 

171 

172 
171 


JP s PAGE(5) 

C 

TERR e 0 

DO 10 1 1 s | * ICNF 

READ (UN, 5010) CFUNCT, CFTYPE, CNOPER, CNS7BY, CMTYPE, FRCOEFf f I ) 

1 , lOD(TI), OIAM(tl), CT7YPE* ITHl«(t|), M8AR(II I , 

2 CODE (II). 

IE (PACE ( I ) ) WRITE(6,6000) (LD(I . I) , lsl ,9 ) * ( (LI (I * J) , tsl ,81) , Jel .2) 
WRITE (IOT»6OI0) CFUNCT, CODE(ll), CFTYPE, CNOPER, CNST0Y* CMTYPE. 
( FRcOEF(II), LOOUI), Dt AH( 1 1 ) • CITYPE, 

2 ITHlCK (III, NBARttl) 

C 

c ***** SEARCH FOR the CONFIGURATION NAME. 

C 

DO 10 12 c |,I8 

IF(CFUMCT.EG.FHAME(I2) ) GO TO 20 
10 CONTINUE 

C 

HRITE(6,6020) 

IEPR =. IERR ♦ | 

GO TO 10 
C 

20 CFUNCT s 12 

CALL STOCON(II) 

IF ( CFIINCT. EO. 98) GO TO 15 
10 CONTINUE 

c 

c ***** INPUT the duty cycle data 

c 

15 CONTINUE 

IF (IERR ,GT. 0) CALL EXIT 

IF(PAGE<0>) WRITE(6,6IOO) (L0(I,6),IS|,91 

WRITE (I0T,6I0I) 

DCYCLT = 0.0 
NDCYCL = 0 
II = 0 

DO 100 1 1 e | , !CDL 2,2 
NDCYCL = NDC V CL ♦ 2 
"If: II ♦ I 

READ ( I IN, 50801 DCYCLE(II), OCYCLE( 1 1 *1 ) , PSltil»y .W^OPfllS* 

I HP ( 1 1 ) , P AMB (II), PKW(II), RPRTIM(H) 

IF(PAGE(I)) WRITE(6,6I00) (CO ( I ,6 | , 1=1 ,9 ) 

WRITE HOT, 6110) DCYCLE III), DCYCLE ( 1 1 ♦ I ) » PSI(II)j NEOP(II), 

I HP ( 1 1 ) , pAHB(II), pKW(II), RPRTIM(H) 

DCYCLT = DCYCLT ♦ DCYCLE(II) 

KCYCLE s II - I 

IF ( DCYCLE (11*1)) 90,* 

IF < OCYCUE ( 1 1 )) * 1 00* 100 
NDCYCL e NDCYCL - I 
90 NDCYCL = NDCYCL - I 
GO TO I 10 
100 CONTINUE 

c 

WRITE(6,6I20) 

CALL EXIT 
C 

c ***** INPUT THE CONSUMER DATA 

c 
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a 

i 

05 


******** 

l?H 
lit*} 
,IT6 
ITT 
!ITB 
I T9 
1180 
,181 
182 
1181 
i I 84 
189 
1 1 86 
187 
1188 
,189 

1190 

1 191 

192 . 

1 1 91 
194 
' I 99 
196 
1 197 
I I 98 
199 
1200 
1 201 
!'202 
i 201 
, 204 
j'20S 
.'206 
207 
1.208 

209 
'210 
1 2 1 I 
'212 
I2H 

214 
! 2 1 S 
,216 
2'T 
■218 
•219 
1 220 
I 22 1 
222 
221 

224 

225 

226 

227 

228 
229 

210 
291 


C0HP1L 


******** 


lie cent !nue 

60 TO 1 1 1 1 M I2» 120* 110* III)* SySNUH 
III CONTINUE 

***** READ IN THE ENGINE CONSUMER DATA 

IF ( PAGE (0 ) j NRITE(6,6010) (10(1.21.131,9) 

READ (9,9020) NENG.GTTEMP.G I PRES, THRUST, PSUBC.EXPR AT* HIXRAT 
WRITE (6, 6040) MENG.(L2(I,| ), 1=1.1). 

1 ' 0ITENP,(L2(I,2),!=!,1), 

2 GlPPES»(L2(I»1),ls|,1), 

1 THRUST, (L2(I, 4), 1=1.1). 

4 PS'JBC ,(L2(I,S), 1 = 1.1). 

9 EXPRAT, (12(1, 6), 1=1.1). 

6 MIX* AT »(L2(I»T), 1=1,1) 

GO TO I II 

I 12 CONTINUE 


*** READ IN THE APU CONSUMER DATA 

IF ( PAGE (0) j WRITE (IOT.6010) (tO( t » II) . Is| ,9) 

READ ( I IN, S 1 20) NAPU, HPR, FMR, P6G, TIT, TD 
GO TO < 114, IIS).SCRIT 
I 14 CONTINUE 

WRITE (107,6011) 

REAO ( I IN,*) 1 10 ) MRGGCH, MRGGCO, TOGGH, TOGGO, TVH, TVO* TENV 

WRITE HOT, 6190) NApU, ((. 1 1 1 1# » ) 1 1 = 1 ,4) » HPR, ( L 1 1 (1,2) *1=1 .4), 

1 FMR , ( U I ( I » 9) , Is I *4 ) » PGG. (L I (( 1 .4 ) , I-( ,4) , 

2 TIT , (LI!(I,S)»I = !,4)» TO , (L I I ( 1 ,6) , 1 = I ,4) , 

1 MRGGCH, (L|I(I»7)»I = I*4),MRGGC0»(I. l|(I»8).Is|»4)» 

4 TDGGH ,(UKI,9),!r|,4),TDGG0 , (U I ( 1 , 1 0) , 1= I ,41 T 

9 TVH »(LII(I,II).I = I,4),TV0 , ( 1 1 I ( I , I 2) , 1 = I ,4) , 

6 TENV ,((.11(1, II), 1 = 1, 4) 

GO TO 111 


119 CONTINUE 

WRITE (IOT.6012) 

REAO (I IN, 9 1 10 ) FMRG, PFH, PFO, TFH, TFO, TO, OEUPCP, 


TENV 


WRITE ( I0T.6I90) NApU, (L I I ( I , I) » 1 = I ,4 ) ,HPR 

1 FMR , (tll(I.I), 1=1,4), PGG 

2 TIT , (U I (1, 9), 1 = 1, 4), TO 

1 FMRG, (Hill, 14), 1 = 1, 4). PFH 

4 PFO , (U | (I, 16), 1 = 1, 4), TFH 

9 i TFo , (111(1,18).!=!, 4), TG 

6 OELPCP , ( M I (I, 20), 1=1,4), TENV 

GO TO 111 


» (lltf!»2)»!=l,4), 
, (L 1 1 ( 1 ,4 ) , I = | ,4 ) , 
» (L||(l, 6)»l=l,4), 
»(UI(1, 19), 1 = 1,4), 
,ILII(I,l7) jl=l,4), 
,( I- *1(1, 19), 1 = 1, 4), 
»(Di(i,n),i=i,4) 


120 CONTINUE 

*** READ IN LIFE SUPPORT SYSTEM CONSUMER DATA 
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compil 


c 

c 

c 


c 

c 

c 

c 

c 

c 


IF(PAGE<0)) WRITE <I0T,6D50j (L0( ! . 15) , t«l *9} 

READ <t IN, 5 150} HDAvS,NCREW,NRPRES»NDAPES, 02FN0M,GLKRAT'*TISN0HU } . 
| TLSN0M(2),RH0nEG< | ), RHOREG ( 2 ), TKFTEM ( | ) , TKFTEM ( 2 ) , TKFPRS ( I j * 

2 TKFPRS (2 ) *TENVR,CABV0L 

READ (TIN, 5151) LINDIAI I j , LJNOIAO!). WTRFLx j I } * HTRFLx(2j* 

1 PLSMOM(I), PLSNOM ( 2 | * MTPDIA(I), MTR0IA(2)t 

2 HTRI.HG ( I ) , HTRLN6 ( 2 ) » PSETt, PSET2 

WRITE <ICT*6160) WAVS, (U 1(1* 11*1=1,4). 

1 NCPEW , (LI 1( I , 2) * 1 = 1 *M } ,NRPRES ,(LI1(!, 1),It|,4}, 

2 NDARES .<Lnll> 4) * 1 = 1 .4) . 02 FN 0 M * ( L 11 ( 1 , 5), 1=1*4), 

1 OLKRAT ,111111, 6).I=I,4),TLSN0M(I),(LI1<!, ?),!=!, 4), 

4 TLSf.'OM (2 ) , (L 1 1( 1 , 8 ) « Is I *4 ) «RHoOE6( I ) * (L 1 1( 1 , 9), 1=1*4)* 

5 RHCBEG<2) . IL'Illi ID) , I s t ,4 ) , TKFTEM ( l).(Lll(I,ll),Is|,4), 

6 TKFTEM (2)»(LI1(I, 12), Isl*4)*TKFpPS( I ) , ( L 1 1 ( 1 , 11 ) , 1 = 1 ,4 ) , 

T TKFPRS(2),(LHU*l4),Isl,4),TEHVP . . (1-1 K ! , 15) , 1 = 1 ,4) , 

8 CAByOL ,(111(1, !6 )»IsI»4)»LI HD !A(I),(II1(J»|T)»!s|»4), 

9 L IND I A ( 2 ) , ( L 1 1 ( I , I S ) , I s 1 , 4 ) , WTRFLX ( I ) , ( L 11 ( 1 , 1 9 ) , 1 s I ,4 ) , 

T HTPFl.X(2),(LI1(I,2D),lsl,4),PLSi;0H(l)*(U1(!,2l),Is|,4), 

A PLSl.’0rt(2), (U 1( 1,22), tel, 4), HTRDJAI I ),(U 1(1,21), 1 = 1,4), 

B HTfi0IA(2),(L!1(I*24).Isl,4),MTRLMG(l)»<Ln(!,25),!a|»4), 

C HTRLMG (2).(L11(I,26),Isl,4),PSETI , (L 1 1 ( 1 ,27) , 1 = 1 ,4 ) , 

D PSET2 ,(111(1, 28), 1=1,4) 

GO TO I II 

110 CONTINUE 

*** READ IN FUEL CELL CONSUMER DATA 


IF(PAGE(0)) WRITE(I0T, 60501 (L0M*»4)*I = 1 ,9) 

READ ( I IN, 5 140) MRFC, SRCFC, ODTFC, SPwTFC, TFCNOHj j ) ,TFCN0M(2 j , 

I TF2IIN, TF2I0U, TFOFC, TFHFC 

READ ( I IN, 5 140) PFOFC, PFHFC, RHOFIL(I). RH0FIL(2j, WOVENTfWHVENT, 
I DELTCP , TENV, PRFCOP, POWNOM 

-READ ( I IN,5 1 4 I ) NFCOP, NFCSTR* PLSFTI, PLSET2, VJANUL! I ), 

I VJiNUL ( 2 ) » TKMXDI ( I ) , TKMXDI (2 ) 

READ (IIN, 5110) FCVOLt* PRGRAT (I ) * PRGRAt 1 2 ) * PRGTlMIlj, 

I PRGTIM(2), PPG I NT ( I ) , PPGINT(2) 


WRITE (I0T,6I50> NFCOP ,(LI2(I, 


SRCFC 

SPWTFC 

TFCN0M(2) 

TF2I0U 

TFMFC 

PFHFC 

PHOF I L (2 ) 

WIIVENT 

TENV 

POWNOM 

PLSET2 

VjANUL ( 2 ) 

1*11x01(2) 

PRGRAT ( | ) 


(1-12(1 
(L 1 2 ( I 
(L 1 2< I 
I L 1 2 ( I 
(L 1 1 ( I 
(U!(I 
(L 1 2( I 
(L I 2 ( I 
(L'lfl 
(LI 2( I 
(L I 2 ( I 
I L I 2 ( l 
1L12U 
(L 1 2 ( I 


= |,4), MRFC 
, ODTF c 
,TFCN0M( I ) 
,TF2 1 1 N 
, TFoFC 
, PFOFC 
, RHOF IL ( I j 
, WOVENT 
, DELTCP 
,PRFCOP 
,PLSETI 
, VJANUL ( I ) 
*TKMXDj(l) 
, FCVOLT 
, pRGPAT ( 2 ) 


(L I 2{ I , 2) 
(LI2(I, 4) 
(Lt 2 { 1 , 6) 
( L 1 2 { 1 , 8) 
( L I 1(1,18) 
(LI I (1,16) 
(L 1 2( 1 , 1 0 ) 
((-(2(1*12) 
(LI I (1,20) 
(L*2( T, 14) 
(L 1 2 ( 1 , 1 6) 
(112(1*18) 
( L I 2 ( 1 , 20) 
! L t 2 1 1 » 2 2 ) 
( L I 2 ( 1 , 24 ) 
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:290 

29f 

292 


i 


291 

•294 

'.295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 
111 
314 

313 
316 
'317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

311 

312 

333 

'334 

335 

336 

33 7 

338 

339 

340 
■34| 
342 

341 
■344 

345 

346 

347 


C 

c 

c 

c 

c 

c 


c 


c 

c 


C' 

c 


c 


c 

c 

:c 


E PRGTIM(t),(LI2(I.25).I=l.4),PRGTH1(2}.(LI2(I*26i»I=l#4). 

f PPGIHT( th(ti2( i •ert,tsi tit t,PRainr(?h<U2<tt?8htsi,u) 


111 CONTINUE 


***** j NP u7 TANK 0A7A 

IF (PAGE(O)j WRITE (107,6050) ( LO ( 1 , 1 2 ) * 1= I *9 ) 


J B | 

READ (MN, 5060) (NOP { I * J ) * SA7YPE ( 

1 SPTYPE(I,J),SITEKP(I,J),SIPRES( 

2 SVPRES(I,J),SHFt-UX(!,J),Sr7H!K( 

3 SMDlAM(I»J),SHoTEM(!»U),SHDELP( 

4 SOGPC (I,J),SGNRAT(!iJ),SNBAR ( 
WRI7E (107*6060) (NOP (I, J), 1=1. 2) 

1 (5A7YPE ( I ) * Is I « 2 ) 

2 (StTYPE(I,J),1=I.2) 

3 ' (SMTyPE( I . J) 1 1st *2) 

4 (SPTYPE(I.J).!S1.2) 

WRITE (I0T,6090) (SlTEMP(I.J), 1=1,2) 

1 (SIPRFS ( I * J) * I = I *2 ) 

2 (5PGTEM(1,J),!=I *?) 

3 (SOPRES ( I, J), 1=1,2) 

4 ( SVPRES (I,J)»I=I»2) 

5 (St!FLL'X(I,J). 1 = 1,2) 

6 (SIThTK(t,J),l = l,2) 

7 ( Fl.OLOD ( I ), 1 = 1,2) 

8 (SUL6PC(I ) , 1=1 ,2) 

9 (SM01AM(I,J), 1-1,2) 

A (SHOTEM(I,J), 1=1,2) 

B. (SHDELPfl.J), 1=1*2) 

C (SPDELP (I, J), 1=1, 2) 

D (SG07En(I*J)*T=I *2) 

E (SGGPC (I, J), 1=1, 2) 

F (Sr,MRAT(I * J) , 1 = 1*2) 

G (SNBAR (I ), 1=1,2) 

READ (IIN*5062) IwOP, NOSHAP 


) , STTYPE ( I * J) *SHTYPE ( I * J) , 
,J),SPGTEM( J,J),SOPRES(I,J), 
, J ) .FLDLOO ( ! ) ,5ULCPC ( I )* 

*J),SPDElP(!,J),SGOTEM(t,J), 
) , 1 s I , 2 ) 


<L7(I 
(L7( 1 
<L7< I 
(L7(I 
<L7<1 

<L7(I 
(L7(! 
(1-7(1 
(L7(I 
( LT ( I 
(1-7(1 
(L7{ I 
(L7(I 
(L7(I 
(1-7(1 
(L7(! 
(1-7(1 
(L7(I 
(17(1 
(L7(I 
(1-7(1 
(1-7(1 


22), 1=1*4), 

12) . 1=1,4), 

10), 1=1, 4), 

9), t=i,4), 

13) , 1=1,4) 


6 ) , I 

7) , I 
15), I 

14) , I 

8) , I 
5), I 

I I ) . I 

3) , I 

4) , I 

2), I 

15) , I 

16) , I 
171,1 

20) , J 
19), I 

21) , I 
23), I 


1,4) 

1,4) 

1.4) 

1.4) 

1.4) 
1,4) 
1,4) 
1,4) 
*,4) 
1,4) 
1 ,4) 
1,4) 
1,4) 
1,4) 
1,4) 
1,4) 
1,4) 


WRITE (I0T.609I) IWOP, NOSHAP 


CHECK FOR GENERAL TANK CONFIGURATION 
IF (IWOP .LT. 2 .OR, NOSHA® ,EQ. 0) GO TO 210 
WRITE ( IOT ,6062 ) (LO ( 1 , 1 0 ) • 1 = I ,9 ) 

READ IN GENERAL TflNK CONFIGURATION 
00 200 1=1 , NOSHAP 

READ ( I IN, 5062) JTKTYP( I ) , UFLTP < I ) »XD ( I ) » YD( I ) * ZD ( I j 
200 WRITE ( IOT, 6064 ) JTKtYP ( I ) , JFLTP ( I ) ,XD ( I ) , V0( I ) , Z0( I ) 
210 CONTINUE 

DO 2000 v!SIM=l,S 

IF (INBLK(SYSNHM,JSIM,SCRITj .EQ. Cl GO TO 2000 
GO TO (1100,1200, 1300, 1400. 1500). J5IM 
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td 

i 

-d 

o 


■tue 

1*49 ■ 

3*?0 

IS I 

1S2 

1ST 

ISM 

3SS 

1S6 

1ST 

158 

159 


C ***** IHPUT THE ACCUMULATOR DATA 

C 

1100 CONTINUE 

IF (PAGE (0)) WRITE <6*60S0) (L0 ( 1 ,3) ,Ia) ,9 j 

c ...... 

READ ( I IN.SOIO ) (NAoP(I)tA!TVPE»n.AHTVPE(I)»ATEHP(|)*APRES(n» 

1 AHFLUX( I ) » AIT)tIK( I ) » AV0L( I ) » ADIAM) I ) , ANDELP( l ) . 

2 ANSAR < I ) « Is I ,2 ) 

C 

NRITE ( IOT, 6060) (NAOP ( I ) » 1=1 ,2) » (L7t 1,22) » 1=1 ,4} » 

1 ( AITYPEf l)«l=t, 2), (L7 (1,10), 1=1,4), 

2 (amtypeM), i=t. 2 ). urn, 9 » , i= « .u > 


360 
36| 
362 

361 
36M 
36*5 

366 

367 
360 

369 

370 

371 

372 

373 

374 

Its 

376 

377 

378 
179 
300 


391 

394 

395 

396 
197 
398 
199 
400 
40 ( 

402 

403 

404 

405 


WRITE ( IOT»6090) (AtEMP ( l ) , 1 = 1 ,2 > » ( LIU » I). 1*1.4}, 

1 (ApRES (I), 1=I*2),(LT(I. 14), 1=1,4 , 

2 ( AHFCUX (I)»1=I.2).(L7II» S).!=t.4j, 

3 (AITHlK(It,I = t ,2),(L7(I,M ), 1=1.4), 

4 (A'/OL (1), 1 = 1, 2). (1.3(1, 2) , 1 = 1 , u ) , 

5 (ADIAM (I),l=t,2).(L7(I. 2),t=t,u}, 

6 ( AN0ELP (I),l=i*2)*(L3(l, 3), 1=1. 4), 

7 (ANSAR (I), 1=1, 2), (17(1.23), 1=1, 4) 

GO TO 2000 

***** INPUT THE HEX DATA 
'|200 CONTINUE , 

IF (PAGE (0) 5 WRITE ( IOT.6O50 ) (L0( t ,4M*I ,9 j 

REA0(1IN,S019) NUMHEX . . , . . . . , 

REA0( 1 In, 5040) ( (HEXHITt I,J),HEXHoT(I*J( .HEXClTl t » J) ,HEXC0 tU, J) * 
t HEXH!P(I,J),HEXHOP( l.J),HEXCIP( l.J|,HEXCOP(l,J). 


WRITE(10T,6069) NUMHEX 


HXHDLP ( I , J) .HXCOLP ( I , J) ,HXMRAT ( I, J),HXC00E(I, J) . 
Jet, 2), Is|, NUMHEX) 


101 

102 

WRITE ( IOT ,60S 1 ) 

WRITE (10T, 6070) ( (HEXHIT( J , J) , J= 1 

,21,1 = 1 

,SI 

U4U. 

1). 1=1, 4| 

183 

1 

( (HEXWQT ( I , J ) , J= 1 

,2), 1=1 

,S> 

<L4(I, 

2), 1=1, 4) 

184 

2 

( (HEXCIT ( I , J) , J: 1 

,21,1=1 

,S) 

(L4(I, 

1). 1=1,41 

38.5 

3 

( (HEXCOT ( 1 , J) , J=l 

,2) , 1=1 

, S ) 

(L4(I, 

4), 1=1, 4) 

186 

4 

( (HF.XH IP(I,J),J=I 

,2), 1=) 

,S) 

(L u ( I , 

51,1=1*4) 

•387 

5 

( ( HEXHOP ( I , U ) , Js 1 

,21,1=1 

,S) 

(L4(I, 

6), 1=1, 4) 

388 

6 

( (HEXC1 P ( 1 , J ) , J= 1 

,21,1=1 

,S) 

(L4(I, 

7), 1 = 1, 4) 

189 

7 

( (HEXCOP ( I , J ) , J= 1 

,2), 1=1 

,S) 

<L4( 1, 

8), 1 = 1, 4) 

190 

8 

< (IIXHOUP ( I , J) * 1 

,21,1=1 

,SI 

(14(1, 

9), 1=1, 4) 

39| 

9 

((HXCDLP(I,J),J=I 

,2), 1=1 

,S) 

(L4(I, 

10), 1=1, 4) 

392 

T 

( (HXMRAT ( I i J ) , Js I 

,2), 1=1 

,S) 

(L4(l, 

' 1 ),! = !, 4) 


IF (NUMHEX ,LE, S) GO TO 2000 
WRITE (IOT, 6052) 

WRITE ( IoT, 6070) ( (HEXHIT ( I » J) »J= I 
t ((HEXHOT(I,J),J=l 

2 { (HEXCIT ( 1 , J) , Js I 

3 ( (HEXCOT ( 1 , J ) , J= I 

4 ( (HEXHIP ( I , J ) ,. Js I 

5 ( (HEXHCP ( I , J) , 0= I 

6 ( (HEXC IP ( I , J ) , J= t 

7 1(I!EXC0P(!,J),J=I 

fl ( (HXHDLPt I , J) , Ja I 

9 ( (IIXCOLPf I, J) »J=I 

T ( (HXMRAT ( 1 , J ) , Js l 


,1=6 
,1=6 
, 1=6 
, 1=6 
,1=6 
, 1 =6 
,1=6 
,1 = 6 
,1 = 6 
,1=6 
,1=6 


( LM ( I » | j , 1= I ,4 } , 
(14(1, 2), 1=1, 4), 
(L4(I, 3), 1=1, 4), 
(LM(I, 4), 1 = 1, 4), 
(L4(I, S) , 1 = 1 ,4 j , 
(L4(I, 6), 1=1, 4), 
<14(1, 7), 1=1,4}, 
(L4(l, 81,1=1,4}, 
(L4(I, 9), 1 = 1, 4), 
(14(1, to}, 1=1, 4), 
(L4(!,I|),I=I,M) 
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I 


I 

I 


I 

I 


COMPIL 


•**#***#* 


406 
■407' 
408 
■** 09 
■410 
'■411 
•412 
'411 
414 
' 4 I S 
■ ■416 
417 
l 4 1 B 
,419 
'•420 
; 421 

I M22 

1 421 

424 

425 

426 
'427 
1 428 
i 429 

410 
i 411 

412 

411 

414 

415 

416 

417 

418 

419 

440 

44 1 
4‘»2 
441 

444 

445 

446 

447 

448 

449 

450 

451 

452 
451 

454 

455 

456 

457 
; -458 

459 

460 

46 1 

462 
461 


GO TO 2000 


***** INPUT THE PUMP 04 TA 
1100 CONTINUE 

IF (PAGE ( 0 ) ) WRlTE( 6 , 6050 j < t .0 ( I • S ) • I s | 

REAO<5.5050)<PTYPE<I>,PEFF(I)»PNPSM{I),PSSPEB(!),EPDELP(lj»lBl.2j, 

1 1 (TPEFF(I),TPMPSH( 1 )« TPCELPt I ) ,TPWDOT ( I ) « Is 1 , 2 ) , 

2 ( TEFF ( I ) f TITEMP (I)*T 0 TEMP( 1 ) , 7 MRAT 0 ( I j * TG 6 PC ( I ) » 

1 1=1.2) 


HRJTE(6,6080)(PTYPE (I). 1st, 2) 

1 ( PEFF (I), 1=1, 2) 

2 ( PNPSH (I). 1st, 2) 

1 (PSSPEOf 1 ) , 1= I ,2) 

4 ( EPDELP ( I ) , I = I , 2 ) 

5 (L0(I.|I).1=|.9). 

6 (TPEFF (I), 1=1, 2) 

7 <TP(|pSH(l), 1 = 1,2) 

8 (TPDEI.P ( ! ) . 1 = 1 ,2) 

9 (TPHCOTU ).! = l ,2) 

T <1.0(1, aM =1.9), 

1 (TEFF ( 1 ) , 1= I ,2 ) 

2 (TTTEMP( I ) , tsl ,2) 

1 (TOTEHP ( U , 1= I ,2 ) 

4 (TMnATO(I). J=l,2) 

5 (TGGPC (11,1=1, 2) 
GO TO 2000 


(L5(I,|), I=|,4), 
((.5(1, 2), 1 = 1, 4), 
(L5 (1,1), I = |, 4), 
(L5 ( I ,4 ) , 1 = 1 ,4 ) , 
(L5 (I, 5), I =1,4), 

I L6 ( I , | ) , 1 = | ,4 ) , 
(L6( 1 ,2) , 1 = 1 ,4) , 
(L6( 1 ,1) , ! = ! ,4) , 
(16(1,41.1=1.4), 

(L9(I, |),I=|,4), 
(19(1, 2), t=|, 4), 
(19(1,1), I=|, 4), 
(19(1, 4), 1=|, 4), 
(L9 ( I ,5 ) , 1= I ,4 ) 


: ***** INPUT THE HEAT SOURCE OATA 

1400 CONTINUE 

IF (PAGE(Oj) WRITE (107,6100) (L0( 1, 7) . Isl ,9 j 
READ (IIN.5019) NUMHSO 

READ (11N,5090) ( (HSTYPE ( 1 , J) ,HSMRaT 1 1 , J) ,HSOTEM{ I , J) ,HSAEE (I,J), 
I HSPRES(1.J)»J=I. 2), 1=1 .NUMHSO) 

WRITE ( 107,6128 ) NUMHSO 
WRITE HOT, 6129) 

WRITE ( IOT ,6110) ((HSTYPE(I,J),J=t.Z>,I=l, 5 ) , ( 1 1 0 ( I , I j , 1=) ,4 j, 

1 ((HSMRAT(!,J),J=I .2),!=!, 5 ),(L t 0( I ,2 ) , 1=1 ,4 ) , 

2 ( (HSOTEH( 1,>I),J=I,2),1 = I* 5),(U0U,1),Ia),4), 

1 ((HSAEE ( ! , J) , Jsl ,2) , 1 = 1 , 5), (110(1, 4), Is), M), 

4 ((HSPRES(I,J),J=I.2),I=I, 5) , (U 0 (I ,5) , 1= I ,4 ) 

IF (NUMHSO ,LE, 5) GO TO 2000 
WRITE (IOT, 6127) 

WRITE (IOT, 6(10) (<HSTYPE(I,J),J=f,2>,r=6.|0)»{UO(I,l).I = l,4), 

1 ((HSMRAT(!,J).J= ).:>), 1 = 6, 10), (U 0(1,2). 1=1,4), 

2 ((HS0TEM(I,J),J=I,2),1=6,(0).(U0(I,1),I=I,4), 

7 ((HSAEE (I,.)),J=I,2),I=6,I0),(U0(I,4),! = I,4), 

4 ( (HSPRES (I, >•),»)= I, 2), l =6, 10), ((-10(1,5), I = |, 4) 

GO TO 2000 


***** INPUT THE MOTOR DATA 
1500 CONTINUE 

IF <PAGE( 0 )) WRITE (IOT, 6100 ) (LO ( 1 , 9 ) , i=| , 9 ) 
READ ( 5 , 5100 ) MTVPE , I 1 EFF , MSS , PONSTY 
WRITE (IOT, 6140 ) MTVPE, MEFE, MSS. PDNSTY 
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COMPIL 


M6M 2000 CONTINUE 

465 C 

466 RETURN 

46T END 
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u uuuuuu 7 


PROCEDURE DEFINITION PR0CESS0R - C0NST 


CONST* PROC 
C 

COMMON /CONST/ 8RAVTY»PI*PI20T 


***** CONST VARIABLE DEFINITION 
* 

'* GRAVTY - UNIVERSAL GRAVITATIONAL constant 


LMSC - A9 91 3 96 



******** SU8R0UTINE C0NSUM 


1 

C 


z 


SUBROUTINE CONSUM 

1 

C 


4 


INCLUDE CCMTRL 

*> 

C 


6 


GO TO 110.20)* SYSmiM 

7 

C 


e 


10 CALL ENGINE 

9 

C 


10 


CALL FLORAT 

ft 

C 


12 


GO TO 99 

11 

C 


14 


20 CALL APUFLO 

IS 

C 


16 


CALL FLORAT 

IT 

C 


18 


GO TO 99 

19 

C 


20 


99 CONTINUE 

21 

C 


22 


RETURN 

27 


END 


7 

<j 
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MAIN DRIVER PROGRAM - C0NTROL 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
I I 
12 
n 

14 

is 
I 6 
IT 
18 


C 

C 


LOGICAL PAGE 


INCLUDE CCNTPL 
INCLUDE CIOUNT 

include ckeys 

INCLUDE CPAGE 

C 

DATA NSPC / 'SUP* / 1LST / *LAS' / 

C 

5000 FORMAT(2A6»2XA4*3XA3, IXA5/I2A6) 

5001 FORMAT ( A3, A6. IX. Alt |4X»A3,37X»! III J 

6000 FOPM A T ( * 0 • I 9X >*** SYSTEM NAME STARTING *A3.* 

6001 FORMAT CO'/// 44X ' *** YOU HAVE CALLED FOR THE 

| <*•*,) 

C 

C INITIALIZE data STORAGE ROUTINES 

c 


19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 
II 

32 

33 

34 

35 

36 

37 

38 

39 

40 
4 I 
"2 

43 

44 

45 

46 

47 

48 
19 
50 

31 

32 

33 

54 

55 

36 

37 


CALL ST0D7A 
CALL OTUNIT f IOT ) 

C 

:C 

CALL DATE (9.00R) 

c 

C READ NAME AND TITLE INFORMATION 

C 

read ( 5, 5000) NAME, DEPT, BLDf EXT, CTITLE 

NCASE c | 

INTGSY C | 

c 

c read table input data (only once) 

c 

CALL INTAB 
C 

I CONTINUE 
KEY I :s I 
KEY2 = 0 

IF( INTGSY. EQ, I j GO TO 5 
READ (5,5000) NAME, DEPT’, BLD, EXT, CTTTLE 
5 CONTINUE 

READ (I IN, 5001) NSY5»N I ,NCRIT'» INTGB,MDTRC 
DO 10 Irl.NBRSY 

IF (NS V S ,EQ, NAMSYSt I j j GO TO 20 
10 CONTINUE 

WRITE ( IOT ,6000) NSYS 
CALL EXIT 
20 SYSNUM s I 

IF t PAGE (0 ) ) WRITE (IOT,600lj NSYS.NI 
SCRIT s I 

IF I NCR IT ,E0. NSPC) SCRIT = 2 
INTGSY .3 2 

IF (1NTGR .EQ. ILST) INTGSY M 

e 

e read Component Input data 

c 

c 


IS IN ERROR ***< i 
SYSTEM ' A3, A6, 


CALL COMPIL 
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PR0CEDURE OEFIN1TI0N PR0CESS0R - CP AGE 


| CPAOE* PBOC 

2 C 

1 INTEGER OEPT »8LD lExr .PTTTLE»CTTTLE*OPTLUN,DOR ,TIME 

4 X . 

5 COMMON /CPAGE/NAME(2)fDEPT.8L0,EXT,MAxLlN,JNUM,PTlTLE(6>* 

6 1 CTITLE! 1 2 ) >OPTLUNi NCASE#OOR (2 ) »TIME (2) 


T 

:C 



8 

C 



9 

C 

***** CPA GE VARIABLE DEFINITION 

10 

C 



tt 

c 

NAME - 

USER * S NAME ( INPUT1* 

12 

c 



n 

c 

DEPT - 

USER'S DEPARTMENT (INPUT). 

14 

c 



IS 

c 

BLO - 

USER'S BUILDING (INPUT). 

16 

c 



IT 

c 

EXT - 

USER'S EXTENSION (INPUT), 

18 

c 


- MAXIMUM LINES PER OUTPUT PAGEi 

19 

c 

maxlin 

20 

c 



21 

c 

JNUM - 

PROGRAM IDENTIFICATION NUMBER. 

22 

c 



21 

c 

PT1TLE 

- PROGRAM TITLE, 

24 

c 



25 

c 

CTITLE 

-CASE TITLE (INPUT), 

26 

c 



27 

c 

OPTLUN 

- OUTPUT LOGICAL UNIT NUMBER. 

28 

c 


CASE NUMBER (INTERNALLY CREATED), 

29 

c 

NCASE - 

10 

c 


DATE OF THIS RUN (INTERNALLY CREATED) 

11 

c 

OOR - 

12 

c 



11 

c 

TINE - 

TIME OF THIS RUN (INTERNALLY CREATED) 

14 

c 



15 

END 
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FUNCTI0N CPHI 


1 

2 
1 
4 
•5 
6 

7 

8 
9 

10 
I I 
12 
n 

14 

is 

16 

17 

ie 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 


FUNCTION CPHI (T) 

COMMON /RFPR/ RF (10) 

COMMON /CISCP/CI9) 

COMMON /SCRH/ X<40> 

C 

c..., routine to calculate integralicpo DT) 
c 

R=RF(SI 
AKeRF (6) 

T2cT*T 

T1eT2*T 

T4=T1*T 

U=6(9)/T 

X( I ) = -l.0/(2.0 * T2) 

X ( 2 ) - -1,0/T 
X(1| = ALOSfT) 

X<4> = T 

X(5)= T2/2.0 

X(6)s T1/3.0 

X(7)= T4/M.0 

X(B Is U*T/(EXP(U>-l,0) 

CPHI s 0.0 

DO I 1=1.8 

CPHISCPHI + X<I)PG<n 

CPHI ;cPHI*R 

CPHI=CPHl*AK 

RETURN 

END 
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FUNCTION CP1G 


V 

to 


■2 

C 


1 


DOUBLE PRECISION 09, U, 1 

n 

:c 


<5 


COMMON /RFPR/ RF( 10) 

6 


COMMON /CIGCP/0(9) 

r 


COMMON /SCRH/ Xf MO) 

8 

c 


9 

■C • • • • 

CALCULATE IDEAL GAS HEAT 

10 

c 


1 1 


R=RF(S) 

12 


AK=RF(6) 

n 


T2=T*T 

m 


T1sT2*T 

IS 


G9 s DBLE(G(9) ) 

16 


II = G9/0BLE1T) 

IT 


U2 s u * U 

18 


X<ll s- I.0/T1 

19 


X(2) = I.0/T2 

20 


X(1) c 1,0/T 

21 


X(M ) c 1.0 

22 


X(S» S T 

21 


X(6> s T2 

2N 


X< 7) e T1 

2S 


DU S OEXP(U) 

26 


X(B) s SNGL< U2 * DU/(DU- 

27 


CPIG e 0.0 

28 


DO 1 1=1,8 

29 

i 

CPIGSCPIG+X(I)*G<n 

10 


CPIGSCPIG*R*AK 

11 


RETURN 

12 


END 
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FUNCTI0N CPSI 


bd 

i 

oo 

o 


1 

2 
1 

4 

5 

6 
7 

e 

9 

10 

I! 

12 

II 

14 

15 

16 
17 
le 

19 

20 
21 
22 
21 

24 

25 

26 
27 
26 


FUNCTION CPS! (7) 

COMMON /CIGCP/GI9) 

COMMON /RFPR/ RF(IO) 

COMMON 7SCRI!/ XI40) 

C 

C.... ROUTINE 70 CAUCUU7E !NTEGRAL(CPO/T DTj 
C 

RcRP (•>) 

AK=»F<6) 

T2=T*T 
T1BT2*T 
Us0(9)/T 
EU s EXPIU) 

XI I I = -1.0/11.0*71) 

X(2 I = -1 .0/12.0*72) 

XII) c -1.0/7 
X(4> s ALOG(T) 

XIS) s T 
X 1 6 ) a 72/2,0 
XI7) = Tl/1.0 

XIB) a U/IEU-I.O) - AL06(|.0-I.0/EU) 
CPSI = 0.0 
DO I I=|,8 

CPsi=cPsi+xm*G(i) 

CPSI=CPSI*R 
CPS I =CP5I*AK 
RETURN 
END 
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******** PR0CEDUR6 OEFINITI0N PR0CESS0R - CRUMP 




1 

2 
1 

4 

■5 

6 

7 

8 
9 

10 
I I 
12 
n 
m 
is 
16 

1 7 

18 

19 

20 
21 
22 
27 

24 

25 

26 

27 

28 
29 

70 

71 

72 
77 
74 
■7s 

76 

77 

78 

79 
40 
4 I 
42 
*»7 

44 

45 

46 

47 

48 

49 

50 

51 

52 
S7 

54 

55 

56 

57 


;CPUMP* 'PBOC 
C 


c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


INTEGER P TYPE* PSTAGE 

COMMON /CPUMP/ EPDELP(2),PEFF I2I.PPDCH (2 j .PSSPEOI 2 j .PTYPE (2). 

1 TPCELP(2)»TPEFF (2 j * TPNPSHf 2 ) » TPWDOT (2} *TPW6HT(2) *PTEMP [2 « 

2 PPRES (2).PpWf)T (2) .PPDEL (2),PNPSH (2J.PPRH0 (2 ) ,PSTA6E{2 ) , 

7 PHPSPR ( 2) , PMPEFF < 2) ,PMPVOL( 2 ) , PWEGHT ( 2) *PMPOW (2),PSPD (2), 

4 JJOPT (2). 

5 LPPI(7»6). LPP2(4), LPP7I7.61, LPP4(4). LPPS(4) 

DIMENSION UOTP I ( I 2) .U0TP2 ( I 21 

EQUIVALENCE . (UOTPI .PTEMP )*(UOTPM 7), PPRES j, 

1 (UOTP I ( Sl.PPHOT ) » ( UOTP I ( 7 )» PPDEL ),(UOTPI( 9),PNPSH ), 

2 (UOTPI (|| IfPPRHO I , ( U0TP2 .PNPSPR ) , (U0TP2 ( 7),PMPFFF», 

7 (U0TP2 ( Sl.PMPVOL), (U0TP2( 7 ) .PWEGHT1 » (U0TP2I 91.PMP0W ), 

4 (UoTp2( I I ) tPSPO ) 


■****' 


CPUMP VARIABLE DEFINITION. 

PEFF - PUMP EFFICIENCY. 

PMPEFF ... PUMP EFFICIENCY 

PMPVOL - PUMP VOLUME 

PI1P0W - PUMP POWER 

PWEGHT - PUMP WEIGHT ( LBS1 

PSPO - PUMP SPEED 

PS TAGS - NUMBER OF PUMP STAGES 

PNPSPR • COMPUTED UPSH REQUIRED BY PUMP 

PTEMP - TEMP OF FLUID TO PUMP 

PPRES - PRESSURE OF FI.U1D FROM PUMP 

PPWDT - FLOW RATE OF FLUID TO PUMP 

PPDEL - PUMP DELTA-P 

PPRHO - DENSITY OF FLUID TO PUMP 

JJOPT - SELECTED OPTION FOR PUMP CAPABILITY* EQUALS 
I FOR MIN. POWER, EQUALS 2 FOR MIN. WEIGHT’ 

PTyPE - PUMPTyPE = I FOR PUMP ONLY 

= 2 FOR TURBOPUMP ASSYi 

TPEFF - TRANSFER PUMP EFFECIENCY 

TPNP5H - TRANSFER PUMP NPSH 
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CPUHP 


18 

19 

60 

c 

r. 

* TPWOHT « TRANSFER PUHP WEIGHT 



c 

■* TPDELP •-'TRANSFER PUMP DELTA-P 



61 

c 

■* 



62 

61 

64 

c 

* TPWOOT - TRANSFER pump flow rate 



c 

'* 



6 <5 

c 

J PNPSH PUMP net POSITIVE SUCTION HEAD. 



66 

c 



67 

c 

■* PSSPEO - PUMP SHAFT SPEED, 



68 

c 




69 

c 

* EPOELP - ESTIMATED DELTA PRESSURE IN THE PUMP, 


70 

c 




7! 

c 

'* PPOCH — PUMP DISCHARGE PRESSURE 



72 

c 




71 

c 

* NOTE — THE ABOVE VARIABLES ARE SPECIFIED 

FOR 

oxygen 

74 

c 

* IN THE FIRST WORD AND HYDROGEN IN 

THE 

SECOND 

7S 

c 

WORD. 



76 

c 




77 

END 





w 

oo 

to 
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SUBR0UTINE CPVTD 


W 

l 

00 

CO 


1 


SUBROUTINE CPVTD (T'fDrfCPfCV) 

z 


COMMON /CRPR/ CR<1) /METH/ M 

1 


COMMON VRFPR/ RF( 10) 

4 

C 


■5 

c* • • • 

ROUTINE TO '.CALCULATE CV AND CP PPOM THE EOUATION OP STATE 

6 

c 


7 


0CSCRI2) 

8 


TCsCR(l) 

9 


R =RP(S) 

10 


AK=RF(6) 

It 


CALL PFNOfTfD.PI 

12 


1F(M,E0, | ) GO TO 1 

11 


IF<T,GT.TC>60 TO I 

m 


IF<D,GT.DC)G0 TO 2 

IS 

1 

CVO=CPIG(T>-(R*AK) 

16 


CV s CVO - (FIUG1(T,D)-FIN01(T.0.0)) * AK 

IT 

1 

FI=T/0»*a 

10 


F2cOPDT ( T? D) 

19 


F1F0POD ( T i D ) 

20 


CPeCVt (F 1 *F2**2/F1)*AK 

21 


RETURN 

22 

2 

DT S 0.1 

21 


TI=T*DT 

24 


T2CT-0T 

2S 


CALL LPR0P(TI,PI,0*l*H.S',UI,tI 

26 


CALL LPR0P(T2.P2.D*l»H,StU2,t) 

27 


CV .= (U|-U2)/(2.0*DT) 

28 


GO TO 1 

29 


END 
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SUBR0UTINE CPVTOB 


1 

SUBROUTINE CPVTOB(TBtDB*CPB,CVB) 


2 

COMMON /RFPR/ RP(8) 


9 

HT=RF(T) 


4 

T = TB/1.8 


■5 

0 = DB * 4S1.B9237E»1/(WT * 2.8lU84?E«2> 


6 

CALL CPVTOfT tOf CPjCV) 


7 

CPB c CP •* 4S1.S9237/|I.0S43S01E*1 * 1.8 • 

WT> 

e 

CVB = CV * 4S1.S9217/(I.05R1S07E*7 * 1.8 * 

WT) 

9 

return 


10 

END 
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SUBROUTINE CRYC0N 


1 

c 



2 



SUBROUTINE <RYCON 

1 

c 



4 



LOGICAL DIAG.JP 

S 

c 



6 



INCLUDE CCNTRL 

7 



INCLUDE CKEYS 

8 

c 



9 



KEY 1 c |6|1 

10 

c 



1 1 



K c 0 

13 

c 



11 



IHSYSNUM.Ne.2) GO TO 10 

14 



DO 6 I = |,2 

IS 


6 

KSUBC(2.Nl) * JAPUSfSCRIT, I ) 

16 

c 



IT 


10 

I « 1 

IB 



K e 0 

19 



LIIEPT b 0 

30 

c 



21 


20 

JKH = KSUBC ( 5 YSNUH j I J 

22 

c 



21 

c 


IF ZERO HAVE REACHEO END OF CALLING SEQUENCE 

24 



IF (JKH.EO. Oj GO TO 2200 

2S 

c 


MDTRC - IS DIAGNOSTIC TRACE SWITCH (INPUT IN CONTRLj 

26 



IF (HdTRCJJKH) .EO. 0) GO TO SO 

27 

c 


. TURN ON DIAG, TRACE 

28 



JP * DIAG (-I.6HCRYC0N) 

29 

c 


CALL ROUTINES DEPENDING ON SYSTEM SPECIFIED ( SYSNUM j 

10 


so 

GO TO ( 100, 20O»1O0*40O»4S0«SOO,SS0»tO0. 700,800, 900, IOOO>*jKM 

11 

c 



12 


100 

CALL ACCRES 

11 



GO TO 2000 

14 

c 



IS 


200 

CALL ACQWT 

16 



GO TO 2000 

17 

C' 



10 


100 

GO TO (1IO*1SOi .SCRIT 

19 

c 



40 


110 

CALL APUSUB 

4 1 



GO TO 2000 

“2 

< 



41 


ISO 

CALL APUSUP 

44 



GO TO 2000 

4S 

c 



46 


400 

CALL CNPCAL 

47 



GO TO 2000 

48 

C 



49 


4S0 

CALL FUELCL 

SO 



GO TO 2000 

SI 

c 



S2 


soo 

CALL COMSUM 

SI 



GO TO 2000 

S4 

c 



ss 


sso 

CALL ECLSS 

S6 



GO TO 2000 

S7 

c 
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CRYCON 



•58 

600 

CAUL LJQRES 


59 


GO 70 2000 


60 

C 



61 

700 

CALL TANK 


62 


60 TO 2000 


61 

c 



64 

800 

K b K ♦ 1 


65 


IF (SYSflUH ,EOi 2) K e 2 


66 

c 

CALL TSIZEI (Kj 


67 



68 


GO TO 2000 


69 

c 



TO 

900 

CALL WTACC 


71 

c 



72 

1000 

continue 


71 

c 



74 

2000 

CONTINUE 


75 


IF(LREPT) 10* 200 1 1 10 


76 

c 



77 

2001 

IF (MDTRC(JKtl) ,EQ. OJ 00 TO 2t00 


78 

c 



79 

c 

TURN OFF DIAGNOSTIC TRACE SENTINEL 


80 

c 


tt 

81 


JP s DTAG (-2t6HCRYC0NI 

82 

c 

1 

00 

81 

.2100 

! n ! ♦ t 

a* 

84 


IF(U9) 20,20*2200 


85 

c 

END OF PROCESS THIS SYSTEM 


86 

2200 

CONTINUE 


87 

c 



88 

c 

PRINT COMPONENT HEIGHT SUMMARY 


89 


CALL OTPWSH 


90 

c 



91 


RETURN 


92 


END 
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FUNCTI0N CSPF2! 


C 

c 

c 

c 


c 


FUNCTION CSPF2( (TMPJ 
DIMENSION T<9)«CP(9j 

DATA T 7 MIS.OfM6S.O»5fO.0*S4S.0»STS,0*S9O.0»6IO.O»66O.O»7O0io / 
DATA CP/ ,231'5«.27flO*.24S , 5«.2S10«.26l0*.2T00*.a800*.1160*.1S2O / 

DO 10 1=1,9 
JM 

IF CT{ J) ,0E. TMPJ SO TO 20 
10 CONTINUE 

20 IF (J .EQ, I) J c 2 
I a J - I 

CSPF2I = CP(I> ♦ (TMP - T< 1 j )*(CP (J) - CPtl)j/(T(J) - T(IJ) 

RETURN 

END 
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******** 

5UBR0UTINE CSUBP 

1 



SUBROUTINE CSUBP m«P»PRES.N6AS,C} 

e 

C 



i 

c 



4 

c 



5 

c 


NGAS a | FOR OXYGEN 

6 

c 


s 2 FOR HYDROGEN 

7 

c 


s 17 FOR HELIUM 

8 

c 


a 18 FOR NITROGEN 

9 

c 



10 

c 



1 1 

c 



12 



COMMON /C VALUE/ CPON, CVON, DON 

11 

c 



14 



T = TEMP 

IS 



P = PRES 

16 



TTT r TEMP 

IT 



PPP a PRES 

18 

c 



19 



GO TO ( I ?2,5,5,5,5,5*5,5*5,5tS*S*5,5*5, IT* 16 j ,NGAS 

20 

c 



21 

c 


COMPUTE CSUBP FOR OXYGEN 

22 

c 



21 


1 

CALL CSUBPV<TTT.PPP,IJ 

24 



C = CPON 

25 



RETURN 

26 

c 



2T 

c 


COMPUTE :CSU8P FOR HYDROGEN 

28 

c 



29 


2 

C = HPTCP<P,T) 

10 



RETURN 

11 

c 



12 

c 


FOR ERRONEOUS NGAS INDEX 

11 

c 



14 


5 

C c 0.0 

15 



WRITE (6*100) 

16 


100 FORMAT{'0'»20('V)»* erroneous ngas index has USEO in S.R. CSUBP 

17 



1 ' *20( )/) 

18 



RETURN 

19 

c 



40 

c 


COMPUTE CSUBP FOR HELIUM 

41 

c 



**2 


17 

TR = T/17,17 

41 



PR s P/41,82 

44 



IFITR.GT, 1,6460845) GO TO 22 

45 



POWER el ,-4.62*AL0GI0(TR) 

46 



GO TO 24 

47 


22 

POWER=.5910T159|8-2.74*ALOGtO(TR) 

48 


24 

acomst=io.**power 

49 



C = 1.252 ♦ ACONST ■* PR * 186.1/1544.0 

50 

c 



51 



RETURN 

52 

c 



51 

c 


ICOMPUTE CSUBP FOR NITROGEN 

54 

c 



55 


18 

CALL CSUBPVfTTT.PPP* 18) 

56 



C c CPON 

57 



RETURN 
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******** C5U8P ******** 

*5fl C 

•5? EHD 
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SUBR0UTINE CSUBPV 


W 

to ■ 

© 


1 

2 
r 

4 

5 

6 
r 
8 
9 

10 
I I 
12 
n 

14 

15 

16 

17 

18 

19 

20 
21 
22 
27 

24 

25 

26 
27 


SUBROUTINE CSUBPV(T,P f NCAS) 

C 

COMMON /CR PR/ CR(1) /KETH/ M 
COMMON /PFPR/ RF(8) 
COMMON/CVAU'E/ CPON, CVONt DON 

c 

IF(N6AS.EG.I j KF s I 
|F(N6AS.E0,IM KF = 2 
IF(KF,E0. MCALl 0ATAO2 
IF ( KF.EQ, 2JCALL 0ATAN2 

C 

C KF s| indicates oxygen 

C KF 52 INDICATES NITROGEN 

c 

M e I 
C 

CALL DFNDBCT.PfOfZItOj 
DON 'S' D 
C 

CALL CPvTOBIT,D,CP.CVi 
CPON s CP 
CVON 'S' CV 
C 

c 

RETURN 

C 

END 
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SUBH 0 UTINE CSUBPI 



W 

I 

co 


| SUBROUTINE :CSUBP|(T,R,C) 

2 C . 

1 C COMPUTE SPECIFIC HEAT CAPACITY (IN BTU/LB-DEG R; ’AT CONSTANT PRESSURE 

M c FROM the graphical Data OF THE COMBUSTION PRODUCTS OF H2 AND 08 AS 

5 C A FUNCTION OF MIXTURE RATIO AND TURBINE INLET 'TEMPERATURE, 

6 C 

7 C T a TURBINE INLET TEMPERATURE 

e c R = weight patio of or to h 2 

9 C c = COMPUTED VALUE OF SPECIFIC heat OF EXHAUST' GAS AT CONSTANT PRESi 

IOC 

11 DIMENSION X ( 9 ) , CP(I0,9), TT(IO) 

12 C 

n C VALUES, OF MIXTURE RATIO FOR WHICH CP IS TABULATED. 

14 C 

15 DATA <X(I).I=I,9)/.S* .T9* 1.0* I.S, 2.0* 9.0* M.O* 6.0* 8.0/ 

16 C 

IT C VALUES OF TEMPERATURE FOR WHICH CP IS TABULATED. 

18 C 

19 DATA (TT( I ) , 1=1*10}/ moo.o* ISCO.O* 1600.0* ITOO.O* 1800.0* 

20 I 1900.0* 2000.0* 2100.0* 2200.0* 2900.0/ 

21 C 

22 C TABULATED VALUES OF CP AS A FUNCTION OF MIXTURE RATIO AND TEMPERATURE 

29 C 


2M 

DATA 

(CP(I, I). 1=1,10)/ 

2. MO, 2 

.Ml, 2 

.M29* 

2. MM, 

2.M6* 2. 

M7S* 

2.499 

2S 

1* 2. 

SIS, 2 .S3 * 2. SMS/ 








26 

DATA 

(CP(I, 2 ).I=|, 10)/ 

2*07, 

2.08* 

2.1* 

2.119* 

2*13* 2. 

IMP 2 

. ISS* 

2T 

f 2. 

ITS, 2. |9, 2.21/ 








28 

DAtA 

(CP< 1*1) .1=1 » 10)/ 

1.83* 1 

. 8M , ; 

.899* 

1.869* 

1.88* 1 

.899, 

1 *9 1 

29 

I* 1. 

92. 1 .939 * 1 .999/ 








90 

data 

(CP(I*M), 1=1*10)/ 

I.M89, 

1.9. | 

.91* 

1.92. 1 

»93S. I. 

SS. i 

• S6* 

91 

1 1 . 

979, 1.99* 1,609/ 








92 

DATA 

(CPU, S). 1 = 1*101/ 

1,29, 1 

.26* | 

.279* 

1.289* 

1.299, 

1.31* 


99 

1 1. 

329, 1.339, I.3MS, 

1.36/ 







9M 

DATA 

(CPC X » 61.1=1*10)/ 

.969* . 

979* , 

989* 

.999, 1 

*009. 1. 

OIS. 

1.029 

IS 

1*1. 

039, 1.09* 1.06/ 








96 

data 

(CPU, 7), 1=1, 10)/ 

.8* .81 

* .82* 

.83* 

• 8M* • 

89* .86* 

.87* 

.88* 

IT 

1 .89S/ 








98 

DATA 

(CP(I*6)* 1=1*10)/ 

.609* . 

619* , 

629* 

.639* . 

6MS* .699* .669* 

99 

1 .,679* ,A8S* .699/ 








MO 

da t a 

(CP(I, 91*1=1*10)/ 

.9* .91 

* .92 , 

.93* 

*9M, . 

SS. ,96* 

.97, 

*98. 

Ml 

1 .99/ 









42 C . . 

Ml C DETERMINE THE INTERVAL CONTAINING TURBINE INLET' TEMPERATURE. 

V4 C 

i MS DO 100 11=2*10 

M6 I 5 II - I 

47 IF(T ,LT. TTIIII) GO TO ISO 

MS 100 CONTINUE 

M9 C 

1 SO C DETERMINE THE INTERVAL CONTAINING THE MIXTURE RATIO. 

*51 C 

S2 ISO DO 200 11=2*9 

1 S9 J = II - I 

SM IF (R .LT. X(II) I GO TO 220 

I SS 200 CONTINUE 

46 C 

S7 C INTERPOLATE FIRST ON TEMPERATURE AND THEN ON MIXTURE RATIO. 
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******** CSU8PI 


******** 

n c ... . 

220 Cl *({Cp{U|»J) - Cp(IfJ))/ITT(!*l» - TT(im*<T - TTt f » ) 

60 Cl s Cl ♦ CPIltJ) 

61 C 2 = i icp( ifi ) - cPtitJ*i))/fTT(t+n - rrmimr - tt c i j > 

62 C2 s C2 ♦ CPM*J*|) 

6i c s nc 2 - cn/»x(j+i) - xij)n*(ft - xui) ♦ ci 

64 RETURN 

65 END 
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FUNCTION CSUBV 


F 

to 

co 


| FUNCTION CSUBV (TEMP, PRES, NGAS) 


2 

C 


1 

c 


4 

c 


5 

c 

NGAS = I FOR OXYGEN 

6 

c 

s 2 FOR HYDROGEN 

T 

c 

=■ IT FOR HELIUM 

B 

c 

s IB FOR NITROGEN 

9 

c 


10 

c 

********** **************** *************************************** 

I I 

c 


12 


COMMON/C VALUE/ CPON, CVON. DON 

11 

c 


14 


T C TEMP 

IS 


P = PRES 

16 


TTT e TEMP 

IT 


PPP e PRES 

IB 

c 


19 


GO TO <1,2, 5. 5, 5, 5, 5. 5. 5. 5. 5. 5, 5. 5. 5.5. 17. 18). NGAS 

20 

c 


21 

c 

COMPUTE CSUBV FOR OXYGEN 

22 

c 


21 


1 CALL cSUBPV(TTT.PPP.I) 

24 


CSUBV E CVON 

25 


RETURN 

26 

c 


27 

c 

COMPUTE CSUBV FOR HYDROGEN 

28 

c 


29 


2 CSUBV E HPTCV(P.T) 

10 


RETURN 

11 

c 


12 

c 

FOR ERRONEOUS NGAS INDEX 

11 

c 


14 


5 CSUBV = 0.0 

15 


WRITE (6.100) 

16 


100 FORMAT(»O».20(»*»).» erroneous NGAS INDEX WAS USED IN S.R, CSUBV 

IT 


1 '.20('*')/) 

18 


RETURN 

19 

c 


40 

c 

COMPUTE CSUBV FOR HELIUM 

“1 

C' 


42 


IT CSUBv = 0.746 

41 


RETURN 

44 

c 


45 

C' 

COMPUTE CSUBV FOR NITROGEN 

46 

c 


47 


18 CALL CSUBPVITTT.PPP. 18) 

48 


CSUBV = CVON 

49 

c 


50 


RETURN 

51 

c 


52 


END 
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PROCEDURE DEF1NITI0N PR0CESS0R - CSYSWT 


| CSYSWT* PROC 

2 C 

1 PARAMETER JWAelOO, JWBeS 

R C 

5 INTEGER CNUM 

6 C 

•T C 

8 COMMON /CSYSWT/ CNUM, WTCOMPI JwA.JwB) , WTCUMTI JWA, JuB) , 

9 I CMPCOD (JWAtJWBj , WTSUBT , WTSUMT' 

IOC 

11 C ***** CNUM - COMPONENT INDEX IN SERIAL LIST 

12 C * 

19 C * WTCOMP — COMPONENT WEIGHT 

14 C * 

15 C * WTCHMT - SYSTEM CUMULATIVE WEIGHT IN SERIAL' LtSY' 

16 C * 

IT C * CMPCOD — ^COMPONENT 10 CODE FROM CONFIGURATION 

18 C * 

19 C •* WTSUBT — SUBSYSTEM WEIGHT SUBTOTAL 

20 C •* 

21 C ■* WTSUmT- system total WEIGHT- 

22 C .**•** 

21 C 

W 2R END 

I 

«o 

t* 
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PR0CEDURE DEFINITI0N PR0CESS0R - CTAB 



1 

CTAB* 

PROC 


2 

C 



' 1 


PARAMETER NTBM s SO t NS62 = 40 


. 4 

C 



S 

A 


INTEGER TLAfTYPE 


o 

7 

V 

COMMON /CTAB/ TLA{NTBNj,NV*7YPE.NIP,HD,*TAB(NSBli,yTAB(NSBlj* 


e 

1 

1 TAfl(6*S j tdTABI0«NLT8L 


9 

c 



10 


DIMENSION ITAB(6fS) 


H 

X 



12 


EQUIVALENCE ( ITABtTAB) 


IV 

c 



14 

c 

***** CTAB VARIABLE DEFINITION 


IS 

c 



16 

c 

TLA - TABLE LOCATION ARRAY 


IT 

c 

THIS ARRAY CONTAINS THE BEGINNING DRUM ADDRESS 


'> 18 

c 

- 1 * FOR UP TO SO TABLES 


19 

c 

NV - number OF VALUES IN THE INPUT' table <nv<ioIK 


: 20 

c 


21 

c 



22 

c 

TYPE - TYPE OF THE INPUT TABLE (0 B COEFICIENTt 

r 

21 

24 

c 

c 

1 e OESCRETE ). 

CO 

2S 

c 

NIP - NUMBER OF TABLE VALUES TO BE USED IN 

cn 

26 

c 

INTERPOLATION <N!P<NV), 


27 

c 



28 

c 

NO -NUMBER OF DIMENSIONS FOR THE INPUT TABLE* 


29 

c 

<ND<T). 


10 

:c 



11 

c 

XTAB - ARRAY OF COEFICIENTS FOR POLYNOMIAL EVALUATION 


12 

c 

OR ARRAY OF VALUES OF THE INDEPENDENT VARIABLE 


11 

c 

FOR INTERPOLATION. 


14 

c 



IS 

c- 

YTAB - ARRAY OF VALUES OF THE DEPENDENT’ VARIABLE 


16 

C 

FOR INTERPOLATION. 


IT 

c 



18 

c 

.’TAB - ARRAY OF values OF THE REMAINING NO-2 


79 

c 

ITAB INDEPENDENT VARIABLES FOR INTERPOLATION. 


40 

END 
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PROCEDURE DEEINITI0N PR0CESS0R - CTABA 


| CTABA* PROC 

8 C 

7 PARAMETER MXWRO a 7000 

4 € 

1 COMMON /CTABA/ 10X1 ♦TABLE(MXWRO) 

6 C 

T DIMENSION JTABLE(MXNRD) 

8 C 

9 EQUIVALENCE (TABLE* ITABLE) 

10 C 

I I END 


J 
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PROCEDURE DEFINITION PR0CESS0R - CTANK 


W 

I 

to 

-a 


1 

2 
1 


6 

1 T 
' 9 

; 9 
I 10 

11 

12 
II 

m 
is 
, 16 

17 

18 

i ’’ 

, 20 
, 21 
22 
21 

24 

25 

26 
27 

i 28 

29 

10 

11 

12 

I IT 

14 

15 

16 
17 

' 18 
19 
MO 

41 

42 
1 Ml 

44 
MS 
46 
M7 
. Me 

M9 

50 

51 

52 
Ml 
S4 

ss 

56 

57 


CTANK* PRQC 
C 

PARAMETER IJA=2.IJBsl,IJCs10 

c 

INTEGER SATYPE.SITyPE*SMTYPE,SPTVPE 
C 

COMMON /CTANK/ FLOLOD(!JA ),NOP ( I JA j I JB ) , SATYPE ( I JA . j, 

1 SG6PC ( tJA,UB),SGKRAT(!JA,IJB),SOOTEM(tJA;!JB),SHDELP(IJA*IJBj, 

2 SHFLUX<IJA,UB),SHOTEM<IJa, IJB),SHRaTE(UA,IJB),SIPRES<IJA,IJB),. 
1 SITEMPUJA, IJ9),SlTVFE(!JA,IJB),StTMIK(IJA,IJB),SMDIAH(IJA,IJB)» 

4 SMTYPE(lJA,IJ9),SOpRES(TjA,!J8l,SPDt'LP(IJA,IJB),SPGTFM( IJa.IJB), 

5 SPTYPE(IJA,IJB),SUlOPC(TJA ) » S VlF[_0 ( I JA ),SVOL ( IJA, IJB) « 

6 SVPRES(!JA,IJ3)iSWVT0T(IJA,IJB),T!WT ( I JA, ! JB ) ,TSA (IJA, IJB), 

7 TWT <IJA,UB),WBPG (IJA,IJB),WCPPG (IJA,IJB),HGGAPG(IJA,IJB), 

8 SNRAR (JJA I *WGGP (IJA,UB),WGGPPG( JJA,UB), 

9 WGGTOTUJA I »WGR (tJA,UB),WHETOT(IJA»IJB),WLR ( I JA )» 

A VII.RT ( IJA, IJB) ,WMPG (!JA,IJ8), WPGTOTl IJA* I JB) , 

B NPTOT (IJA I.WTACQ (! JA , I JB ) , WTGGH2 ( I JA, I JB ) , WTGG02 1 1 JA , I JB ) , 

C WTHXPG( IJA I | NTOTP (IJA ) , NTS YPG ( I JA , I JB ) , WTTOT (IJA I, 

D PRErKE ( I JC, t JA, t JB) , SVWT ( 1 JC, I JA, I JB) , 

E WOO THE ( I JC , I JA, I JB) »KDOTPG ( 1JC, IJA, IJB) 

F»LTZ| <1, I4),INDXTK(IJA),LTZ2(2,1),LTZ1(1,4) ,TCYHT (IJA) 

c 

c ***** CTANK VARIABLE DEFINITION 

C A 



I 
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CTANK 


******** 

•58 C 

89 C 

60 C 

6| C 

62 C 

61 C 

64 C 

68 C 

66 C 

67 END 


* SNBAR « NUMBER OP LAVER* Op INSULATION ON TANK 

:*■ 

■* WTOTP - TOTAL PROPELLANT IN TANK INITIALLY 

* 

* HLRT - LIOUID RESIDUALS XOMPUTED IN TANK 

:* 

***** SGMRAT » GAS GEN. MIXTURE RATIO 


W 

to 

00 
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CD 

CD 


PR0CEDURE DEFINITI0N PR0CESS0R - CTURBN 


1 

CTURBN* PROC 


i 

C 



i 


COMMON /CTURBN/ TEFF (2) ,TCGPC (2) «TITEHP(2 J »TMRAT0(2) »T0TEHP(2) 

M 


1 TTRMD (2)»TWPTEL(2),TWGTTR(2).THMFN2(2)fTWNOCR(2),TWEGH7(2) 

B 


2 W0GGFR(2)»GWEGHT(2) f WGTGGA(2), 

6 


7 LTBNI (M),LT8N2{B,6) 

7 

c 



e 


DIMENSION UOT8I (I2),U0TB2(6) 

9 

c 



10 


EQUIVALENCE 

(UOTBI t TTRMD ),(U0TBI( 7) » TWPTEL i ♦ 

11 


1 tUOTBIt B) cTMGTTR) , (UOTBI ( 7 ) »TWHFN1) , (UOTBI ( 9)tTWNDCR)t 

12 


2 (UOTBI ( 1 1 ).TWEGHT)| (U0TB2 * WOGGFR ) • (U0TB2 ( 7) »GWEGHT) « 

n 


7 (UOTB2( BI.HGTGGA) 

im 

c 



is 

c 

***** CTURBN 

VARIABLE OEFINITION 

16 

c 

-* • 


17 

c 

* TMRATO 

- TURBINE MIXTURE RATIO. 

18 

c 



19 

c 

* TEFF 

- TURBINE EFFICIENCY. 

20 

c 



21 

c 

* TITEI1P 

- TURBINE INLET TEHPRATURE. 

22 

C 



23 

c 

••♦"T0TEI1P 

- TURBINE OUTLET TEMPRATURE. 

2M 

:c 



2S 

c 

'* THEGHT 

-TURBINE WEIGHT 

26 

c 

* 


27 

c 

* GWEGUT 

- INTEGRATED GAS GEN. PROPELLANT WEIGHT 

28 

c 



29 

c 

* HDGGFR 

- GAS GENERATOR FLOW RATE 

70 

c 

•* 


71 

c 

'* WGTGG4 

- GAS GENERATOR HEIGHT 

72 

c 

•* 


73 

c 

* TGGPC 

- TURBINE GAS GENERATOR CHAMBER PRESSURE 

7i) 

c 

•* 


77 

c 

••* TTRMD 

-TURBINE ROTOR MEAN DIAMETER 

76 

c 

•* 


77 

c 

■* twptel 

•- WGT, POWER TRANSMISSION ELEMENT’ 

78 

c 



79 

c 

>• TwGTTR 

- wGT, TURBINE ROTOR 

MO 

c 

•* 


Ml 

c 

* TWMFNZ 

— WGT. INLET MANIFOLD AND NOIZLE 

M2 

c 

•* 


M7 

c 

••* THHOCR 

— WGT. OF INOUCER ASSY. 

MM 

c 

•* 


MB 

c 

•■* NOTE 

-VARIABLES ARE SPECIFIED FOR OXYGEN 

M6 

c 


IN THE FIRST WORD AND HYDROGEN IN 

M7 

c 


THE SECOND WORD 

MB 

c 



M9 

END 




l 
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SUBR0UTINE 0ATAN2 


W 

i 

I-* 

o 

o 


1 

2 
1 

4 

5 

6 
7 
6 
9 

10 

11 

12 

IV 

m 

is 

16 

IT 

ie 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
70 

11 

12 

11 

14 

15 
76 
17 
78 
19 

40 

41 

42 
41 

44 

45 


C 

c # • • • 

C * ♦ • * 

c 

C • • t • 

c « « « « 

:c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


SUBROUTINE DATAN2 

COMMON /CE0S/GI4 I ) /CVPN/GV<|J) /C!GCP/GtI9j /CSL/CLIT) /CSV/CVlT) 

, /CRPR/CRd) /CTEVP/CTI8) /RFPR/RF ( 10) /METH / M 

IF THE PROPERTIES OF NITROGEN APE To BE CALCULATE!* A CALL TO THIS 

SUBROUTINE MUST BE THE FIRST CALL STATEMENT IN THE MAIN PROGRAM 

THE COMMON BLOCKS INITIALIZED IN THIS ROUTINE HOLD THE FOLLOWING 

information - 

/CEOS/ GI4I) COEFFICIENTS OF THE EQUATION OF STATE 

/CIGCP/ CI0I9) COEFFICIENTS OF THE 10EAL GAS HEAT CAPACITY EQUATION 

/CVPN/ flvllli COEFFICIENTS OF THE VAPOR PRESSURE EQUATION 

/CRPR/ CR(H THE CRITICAL PROPERTIES IN THE SAME UNITS AS THE 
equation of state 
CR(I IsCRITICAL pressure 
CP(2)=C°1T1CAL density 
CRIDcCBITICAL temperature 

/csl/ slit} coefficients of equation USED TO APPROXIMATE 
the SATURATEO LlOUtO DENSITY AS A FUNCTION OF 
TEMPERATURE 


7RFPR/ RFIIOI REFERENCE PROPERTIES 

RF ( I ) SREF FERENC E ENTHALPY AT TEMPERATURE TOH 
RF 12 ) sREFFERFNCE ENTROPY AT TEMPERATURE TOS 
RF(7)=TEMPERATUSE TOH 
RF(4)sTEMPERATU0E TOS 

RF(S)=GAS CONSTANT IN UNITS OF EQUATION OF STATE - R 
RF ( 6)bC0NVERSI0N ‘FACTOR .TO CHANGE UNITS OF 

T«E EQUATION OF STATE TO DESIRED ENERGY UNITS 
RF(7J=M0LECULAR WEIGHT 
RF ( 8 ) sTRIPLE POINT TEMPERATURE 
RF ( 9 ) - MOT USED 

RF ( 1 0 i - NOT USED 

/METH/ M INDICATES METHOo TO BE USED IN THE CALCULATION 

OF LIQUID PROPERTIES 

Ms I INDICATES ISOTHERM INTEGRATION THROUGH THE DOME 
M32 INDICATES the USE OF THE CLAPEYRON EQUATION 
THROUGH THE DO"E 


46 

HU. 


47 

0| I) s 

Otl162247TE-02 

nb 

G( 2) B 

O.IOT07247ETOO 

49 

G( 1) 8 

-0.24190072ETOI 

SO 

G( 4) = 

0 • 14 1 OOT4SE+02 

SI 

G< S) s 

•0. 4227741 IE*04 

S2 

6( 6) e 

O.IOS09860E«01 

SI 

G( 7) e 

-0. 1 I2S9481E-0I 

S4 

G( B) = 

O.I4260079E-01 

ss 

G( 9) e 

0. I84698SOE+OS 

S6 

G 1 1 0 1 e 

0.811 I4008E-07 

ST 

G(l|) s 

0.27101 I6SE-02 
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DATAN2 


98 

0(12) a 

-0.80tT8298E90<j 

99 

6(11) a 

0.48902788E-04 

60 

G< 14) a 

-0.1 IH9676E-02 

61 

. 0| 19) s 

-O.7O741O27E+O0 

62 

0(16) a 

0.79I10669E-04 

61 

0( 17) a 

-0. 1116141 2E-09 

64 

0(18) a 

0.16879696E-01 

69 

0 j 1 9 ) a 

-0.2OI1I769E-O9 

66 

0(20) a 

-0, 1 6<»7 1 744E+05 

67 

0(21) a 

-0. 1 )97I924E*06 

68 

0(22) a 

”0 .9792 1 827E-02 

69 

6(21) a 

C .9946797 1 E*09 

to 

0(24) = 

-0. I7992049E-00 

tl 

0(29) a 

-0.29698297E + 0 | 

t2 

0(26) b 

-0.4I170772E-07 

tl 

0(27) a 

-0.2S624942E+00 

t4 

0(28) a 

-0. I2422217E-06 

t9 

0(29) a 

0. I0199694E-04 

t6 

0(10) B 

-0.811499 1 7E-09 

77 

0(11) a 

“0.7874 1 94 1 E-08 

78 

G( 12) a 

0.989167 1 7E-0T 

79 

0 ( 4 1 j e 

-0.96000CU10E-02 

80 

GV( I) a 

0.819440O4E*04 

81 

GV< 2) a 

-0. 1 8900491E+04 

82 

GV ( 1) a 

-0.72B22292E*0t 

81 

GV( 4) a 

0.ooooooooe*oo 

84 

GV( 9) a 

0.8996063 8E-01 

89 

GV( 6) a 

-0.99449447E-09 

86 

GV( 7) -b 

0.27I84119E-07 

87 

GV( 8) a 

-0.48799399E-I0 

88 

GV( 9) a 

0.90991601E+01 

89 

GV( 10) a 

0. I02239I0E-01 

90 

GV ( 1 | ) a 

0 . 1 9900000E+0 | 

9 1 

GI( U = 

-0.7192 1 040E-01' 

92. 

GI( 2) a 

0 . 14 22 199 8E + 02 

91 

G I ( 1) - 

-0. 99764 829E*00 

94 

GI( 4) a 

0 • 19040421E+0 I 

99 

G!( 9) a 

-0. 1731901 9E-04 

96 

G I ( 6) a 

0. I7469089E-07’ 

97 

GI( 7) a 

-0.19689201E-I | 

98 

G I ( 8) a 

0, I0091B72E»0I 

99 

GI(9) s 

0, 7791406IE*04 

100 

CU 1) a 

0.l94244OlE*02 

101 

CU 2) a 

0.97081748E+02 

102 

CU 1) a 

-0.24126989E+01 

101 

CU 4) a 

0.889 I6813E+01 

104 

CL ( 9) a 

-0. I6197680E+04 

109 

CL ( 6) a 

0. 1 I974120E+0U 

106 

CU 7) a 

0. 101 822tCE*-oi 

107 

CV( |) a 

0. 16131149E90I 

108 

CV( 2) a 

-0 . 9404177 1 E»0 1 

109 

CV( 1) « 

0.21 8927V6E*02 

110 

CV( 4) a 

-0. I0268744E*01 

111 

CV( 9) a 

0.1 8794974E+01 

112 

CV( 6) a 

-0. I6402417E+01 

111 

CV( 7) :a- 

-0.' , 977I679E-0| 

1 1 4 

CU 1) a 

0.77899000E+02 

119 

CR( 2) a 

0.1 1 2 1 OC100E+02 
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116 

CR< 

1) 

s 

0, 1 2620000C+01 

1 1 7 

CT< 

1) 

.5 

-0, I4206479E-02 

l ie 

CT ( 

2) 

•e 

0.I2908809E-0I 

li? 

CT ( 

1) 

- 

0,00 

120 

CT( 

•0 

•e 

0,00 

121 

CT( 

5 1 

s 

0.00 

122 

CT ( 

6) 

s 

0.00 

121 

CT ( 

7) 

S' 

o.oo 

1 24 

CT( 

6) 

s 

0.00 

125 

RF( 

1) 

-e 

0.866900n0E«04 

126 

RF( 

2) 

s 

0. I9I502D0E*0? 

127 

PF( 

1) 

5 

0,2981 5000E*01 

126 

RF( 

4) 

-s 

0.298 I5003E+01 

129 

RF( 

5) 

B 

0.82051900E.OI 

110 

RF( 

6) 

s 

0. I0I12780E+01 

HI 

PF( 

7) 

a 

0.280 1 1400E+02 

112 

111 

114 

RF< 8) 
RETURN 
END 

•a 

0.61I48000E*02 
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'«** SUBROUTINE DATA02 

> 

1 SUBROUTINE DATA02 

2 COMMON /CEOS/G(NI) /CVPN/GVll!) /C1GCP/Gl{9j /CSL/CL(7) /CSV/CVfT) 

1 . /CPPR/CRH) /CTEVP/CTIfl) /RFPR/RFMO) '/METH/ M 

4 C ... 

5 C,... IF THE PROPERTIES OF OXYGEN. ARE TO 3E CALCULATED A CALL TO THIS 

6 :c.... SUBROUTINE MUST BE the FIRST CALL STATEMENT IN THE MAIN PROGRAM 


r 

8 

C 
c • 

THE COMMON BLOCKS 

INITIALIZED in THIS ROUTINE HOLD THE FOLLOWING 

9 

c • • • • 

INFORMATION - 


10 

c 



it 

c 

/CEOS/ G<4| I 

COEFFICIENTS OF THE EQUATION OF STATE 

12 

c 



n 

c 

/CIGCP/ CIG(9) 

COEFFICIENTS OF THE IDEAL GAS HEAT CAPACITY EQUATION 

IN 

c 

1 * 


IS 

c 

/CVPN/ Gvlll) 

COEFFICIENTS OF THE VAPOR PRESSURE EQUATION 

16 

c 



IT 

c 

/CRPR/ CR(1) 

THE CRITICAL PROPERTIES IN THE SAME UNITS AS THE 

ie 

c 


EOUATION OF STATE 

19 

c 


CP< 1 JbCRTTICAL PRESSURE 

20 

c 


CR(2)sC»ITICAL density 

21 

c 


CP(1)=CBtTICAL TEMPERATURE 

22 

c 

/CSL/ SL <7| 


21 

c 

COEFFICIENTS OF EQUATION USED TO APPROXIMATE 

2N 

c 


THE SATURATED LIQUID DENSITY AS A FUNCTION OF 

2S 

:C' 


TEMPEPATURE 

26 

c 

/CSV/ SV(7) 


27 

c 

COEFFICIENTS OF EQUATION USED TO APPROXIMATE 

28 

c 


the saturated vapor density as a function 

29 

c 


OF THE TEMPERATURE 

10 

c 



11 

c 

/RFPR/ RF(IO) 

REFERENCE PROPERTIES 

12 

c 


RF(l)sPEFFERENCE enthalpy at temperature tom 

n 

c 


RF(2)=REFFEPENCE entropy at temperature tos 

IN 

c 


RF(1)=TEMPERATUAE toh 

IS 

c 


RF<M)=TEMPERATUBE tos 

16 

c 


RF (S)sGAS CONSTANT IN UNITS OF EQUATION OF’ STATE - R 

IT 

c - 


RF(6)sC0NVER5I0N FACTOR TO CHANGE UNITS OF 

18 

:c 


THE EOUATION OF STATE TO DESIRED ENERGY UNITS 

19 

c 


RF(7)=M0LECULAR WEIGHT 

NO 

c 


RF(8)sTRIPLE point temperature 

N 1 

c 


RF ( 9 ) . NOT USED 

42 

c 


RF ( 1 0 j - NOT USED 

41 

c 



44 

c 

/METH/ h 

indicates method to be used in the calculation 

4S 

c 


OF LIQUID PROPERTIES 

N6 

c 


MSI INDICATES ISOTHERM INTEGRATION THROUGH THE DOME 

47 

c 


M=2 INDICATES THE USE OF THE CLAPEYRON EQUATION 

48 

c 


THROUGH THE DOME 

49 


M B 1 


SO 


G( 1) = -Of N1090NSNE-02 

41 


G< 2) s 0.1S20 I 777 E+OO 

S2' 


G< 1) 8 .-0,S81622INE»0I 

SI 


G( N) s Of 2N1S0909E+01 

SN 


G! S) b .“0,I24616I2E*0S 

ss 


G( 6) = 0. I20808R2E-01 

S6 


G< 7) s .“0,SS01I700E-0I 

S7 


G< 8)8 -0, I07TS786E-01 
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DATA02 


ns 

«( 9 

) B 0.27fi1117ie904 

n? 

0(10 

B ■•0,104061)76»0 1 } 

so 

0(11 

s 0,114267226-02 

61 

0(12 

) 9 •0,191869826+00 

62 

0(11 

9 •-0,616168426-04 

61 

0( IM 

) 9 0,110140116-01 

AM 

0(11 

) 9 •0,817692996-01 

61 

G( 16) 9 -0,7146(9166-01 

66 

0(17) 9 0,996418166-07 

61 

0(18 

9 0,624681106-04 

6fl 

0(19 

9 -0,711 698106-06 

61 

0(20) B Cl 1 17148121 + 04 

to 

0(21) 8. •0,19278 1 046+06 

T1 

0(22) a -0, 166821 )46+02 

12 

G(21 

) 9 0,109498606+06 

11 

G(24) a ..0. I7BU1141E-0I 

m 

G(21) a 0, 187121626+01 

11 

G ( 26 ) e -0,941017866-04 

76 

6(27) e .0. 171796826+00 

77 

6(28) t -0.207111726-07 

78 

0(29) S: 0, 11747 1 11E-04 

79 

0(90) c -0. 107179216-09 

BO 

G(1l) a -0.700218606-08 

81 

G ( 12 ) = 0,7411481 IE-07 

82 

G(4 1 ) a -0,1600000nE-02 

81 

GV( 

1 ) a -0,118191216+01 

84 

GV ( 

2) r -0.(21188716+01 

81 

GV ( 

1) 9 -0.814162126-01 

86 

GV ( 

4) 9 0.0 

87 

GV ( 

1) a 0,168710246-04 

88 

GV ( 

6) = -0.212624776-06 

89 

GV ( 

7) 9 0,9174 1 097^-09 

90 

GV( 

8) n -0,(66176406-11 

91 

GV ( 

9) a 0.271416066+02 

92 

GV(IO) e 0.26601644E-02 

91 

GV(II) a 0,191171116+01 

94 

G I 

1 ) a -0,498 I9981E+04 

91 

.. -GI< 

2) s 0,210247786+01 

96 

GI( 

1) a -0,741161126+01 

97 

OX 

41 '= 0. 712187676 + 01 

98 

GX ( 

1) e -0,411420226-04 

99 

GI( 

6) a 0,114671146-07 

100 

OX 

7) s 0.162019816-10 

101 

GI( 

8) = 0,101146816+01 

102 

GI ( 

9) s 0,221918116+04 

101 

CL( 

1 ) = 0.274189196+02 

104 

Cl( 

2) = 0,611886466+02 

ioi 

CL 

1) B-0. 177908226+07 

106 

CM 

4) = 0,412910846+01 

107 

CM 

1) = -0,101164116+01 

108 

CL 

6) e 0.242118116+01 

109 

CM 

7) = C. 114407406+01 

110 

CV< 

1) a 0,187841686+01 

1 1 I 

CV( 

2) 9 -0,960216986+01 

112 

CV( 

1) = 0,21 0606716+02 

111 

CV( 

4) = -0.889629926+02 

1 14 

cv 

1)9. 0.(46119116+01 

1 11 

CV( 

6) = -0.1274347)6+01 
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DAT&02 -********5 


1 16 

CV( 

7) 

B -0.8129) I91E-0I 

i it 

C«< 

1 ) 

= 0.49770000E+02 

1 16 

CR ( 

2 ) 

s 0,116100009402 

119 

CR < 1) 

■o- 0.184881009401 

160 

CT{ 

II 

s-O.t 11821849-02 

121 

CT ( 

2) 

= 0,11 I60148E-0I 

122 

CT( 

1 ) 

= -0,724126199-04 

121 

•CT ( 

41 

o 0.88979I6IE-09 

124 

CT ( 

91 

o -0, 8677722 6E-06 

1 128 

CT ( 

6) 

o 0. I8687296E-07 

126 

CT( T) 

0.-0,298997299-09 

127 

CT < 

8 ) 

e. 0.I8970187E-I | 

,128 

RF( 

1 ) 

o 0, 868200009»04 

129 

RF( 

2 ) 

•o 0,208017009401 

no 

PF( 

1 ) 

c 0,298180009401 

111 

RF( 

4) 

.0 0,298 1 8 OOOE 4 OI 

112 

RF< 

9) 

e 0.08208190E400 

111 

RF( 

6 ) 

0 0,101927809401 

114 

RF( 

7) 

0 0,1 1 99 B 8 OOE 4 O 2 

119 

RF( 

8) 

c 0.841811009402 

116 

RETURN 


117 

END 
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SUBROUTINE DCALC 


SUBROUTINE DCALC (D.T.P.DL.OH) 

DATA MAX/10/ 

DATA EPS/T.SE-I/ 

C 

Cmm ROUTINE TO PREFORM ITERATIVE SOLUTION OF THE EQUATION OF STATE 

Cm.* dl is lower bound on density 

Cm*, oh is upper BOUND ON DENSITY 

c 

Cmm THE DESIRED DENSITY MUST LIE BETWEEN OL AND DM 

c 

Cmm ALGORITHM IS MODIFIED VERSION OF 

Cmm 'A QUADRATIC FORMULA FOR FINDING THE ROOT OF AN EQUATION* BY 

Cmm LI. G, CHAMBERS MATHEMATICS OF COMPUTATION VOL 2S NO IIV APRIL IIY711 

C 

105*0 

1C=0 

2 CONTINUE 
DISOL 
D2=DH 

CALL PFNO(T,DI,PI j 
CALL PFN0(T,02,P2) 

V|=P|.P 

Y2=P2-P 
I ICslC+l 

IFUC.GT.HAXJGO TO «5 
IF ( I0S.EQ. I JGO TO 7 
IF< IC.GT ,20)GO TO 6 

Ds=(oi*Y 2 -D 2 *ri )/(V2-ri| 

GO TO B 

7 OS = (01+02 j/2.0 

8 CONTINUE 

CALL PFH0IT.0S.PSJ 
YS=PS-P 

01c0S*YI*Y2/((YS.Y2)*(YS:Yl}j ♦ 

, OI*YS*Y2/UYI-Y2)*lYI-YS)J ♦ 

D2*YS*Y l/( ( Y2-Y I )*( Y2»YS ) J - . . 

CALL PFND ( T. 01 1 PI) 

Y1=P1-P 

IF(DABS<Y3).LE.EPS)G0 to 1 
IF(Yl.GT.O.O) GO TO 12 

IFm.LT.YIJGO TO 12 

YI=Y1 

01=01 

12 IF(vS.GT.O.O) GO TO I! 

IF (YS.LT.YI )G0 TO 11 

VI=YS 

DI=OS 

II IF(Yl.LT.O.O) 00 TO m 

IF(Y1.GT,Y2)G0 TO IN 
Y2=Y1 
02=01 

IN IF(VS.LT.O.O) GO TO I 
IF ( YS.GT , Y2 (GO TO I 
Y2=YS 
02S0S 
GO TO I 
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******** 


DCAU 


******** 


■50 

1 CONTINUE 



59 

DSD1 



60 

RETURN 



61 

5 WRITE{6* 

100)T*P.DL*DH*D|*YI* 

62 

100 formatc 

■■*** OCALC 

FAILED TO 

61 

. ' 

T a 

'*615.7*/, 

64 

. ' 

P B 

'*615.7*/* 

65 

. ' 

OL s 

',615.7*/* 

66 


OH e 

* ,G 1 «5.7t /» 

67 

! ' 

01 e 

'*615.7,/* 

60 


Yl a 


69 

' 

02 a 

•*6t5.7,/* 

70 

. • 

Y2 e 

',615.7,/* 

71 


DS a 

'*615. 7i/. 

72 


YS a 

'*615.7*/* 

77 

. ' 

07 a 

'*615.7*/* 

74 


Yl a 

'*615. 7) 

75 

*P=DS 



76 

RETURN 



77 

6 CONTINUE 



78 

IDS- 1 



79 

IC=0 



80 

r.o to 2 



81 

end 
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SUBR0UTINE DENS0N 


1 SUBROUTINE DENSON (TEMP * PRES *NGASt DENS* ZEE) 

2 C 

1 COMMON 7METH/ H 

M C 

5 C INPUT TO THIS SUBROUTINE MUST BE IN BRITISH UNITS 

6 C 


7 


T s TEMP 

e 


P s PRES 

9 


Me| 

10 

C 


II 


IE |NGAS, EQ, | j KF B I 

12 


IF(NGAS.EQ.Ifl) KF b 2 

n 

C 


1 4 

c 

KF s | CALL IN OXVGEN PARAMETERS 

IS 

c 

KF 8 '2 ;CALL IN NITROGEN PARAMETERS 

16 

c 


IT 


IF(KF.EQ.I) CALL DATA02 

18 


IF(KF.EQ,2) CALL DATAN2 

19 

c 


20 


CALL DFND8(T*P*D,Z»0) 

21 


DENS = 0 

22 


ZEE c Z 

21 

c 


2M 


RETURN 

2S 


END 
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SUBROUTINE DFNO 


1 

2 
1 

4 

5 

6 
T 

e 

9 

to 

H 

12 

n 

m 

is 

16 

IT 

is 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 

14 

15 

16 
17 
IB 
19 

40 

41 
“2 
41 
44 


SUBROUTINE DFND(T»P,DtZ*K) 

COMMON /PFPR/ RF(|0) 

COMMON /CRPR/CPO) 

C ..... 

C.... ROUTINE TO GENERATE TRAIL DENSITIES FOR ITERATIVE SOLUTION OP 
C.... the EQUATION OF STATE FOR OENSITV (IIVEN TEMPERATURE and pressure 
c 

c K =0 INDICATES SINGLE PHASE POINT 

C K =1 INDICATES T ♦ P ARE FOR THE SATURATED LIQUID 

C K =2 INDICATES T ♦ P ARE POP THE SATURATED VAPOR 

C 

IF<(K.LE.2).AND.(K.GE.0) jeo TO I 
WRITE i 6 » 100 ) K 

100 FORMAT! » •*** ERROR IN CALL DFNO ****»/, 

, « K MUST EQUAL 0* I t OR 2 '♦/» 

. ' K = • * 1 1 0 ) 

RETURN 
I PC=CP(I) 

DC=CP(2) 

TCSCR(I) 
ft = PF(S) 

IF(K.GT.0)6O TO S 
IF(T.GE.TC)GO TO 2 
VPsvpfl ( T ) 

IF (P ,LE,VP )G0 TO 1 

4 DM s l.|* OC 
DL=OSAT|_<T) 

CALL DCALC(D*T»P,DL,DHi 
Z = P/(D*R*T) 

RETURN 

1 DU = 0.0 
DH=DSATvtT) 

CALL DCALC (D*T*P»DL»DH) 
l = P/(0*R*T) 

RETUPN 

2 OL = 0,0 

DM = 1,| * DC 

IF ( (T,C>T. 1000.0) .AND, (P.LT, 100,0)) DHbDC 
CALL DCALC (D*T»P»DL»DH) 

?. = P/<D*R*T) 

RETURN 

5 IF(K.EQ.| )G0 TO 4 
GO TO 1 

END 
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SUBR0UTINE DFNDB 


***• 


1 SUBROUTINE DFND8(TB,PB»DB,ZB*K) 

2 COMMON /RFPR/ RF(IO) 

1 HT=RF(TJ 

•N T = TB/1.8 

5 P n PB * 6.8RM7S72E+1/f.OI12SE*S 

6 CALL OFNO(T,P,P,Z,Kj 

T DB a D * HT * 2.61l68‘»TE-2/MS'i.9929TE-9 

8 Z8 = i 

9 RETURN 

10 END 
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******** FUNCTI0N DIAG 


( 

■ 8 ' 

1 


6 

t 

e 

<> 


(r 

m 

is 

, 16 
, t? 
18 

19 

20 
i 21 

22 
21 
, 24 

25 

26 

27 

28 
29 
10 

; II 
12 
11 
i 14 
IS 

17 

18 
, 19 

40 
4 t 
42 


e 

c 

:C- 

C 

e 

t 

e 

t 

c 

t 

e 

t 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* ■* *■.■* ■* ■* .4 ** *»* ■*•. 4- 4 

••* ROUTINE NAHE • DIAGNOSTIC TRACE ROUTINE * 

* ROUTINE LANO * FORTRAN 4 UNtVftC t lOBEKEC 2* 

f PROGRAMMER * Ri BOLLINGER (941 1 02 86911 '*• 

* bATE CODED * APRIL 6j 1 970 ’ 6 -. 

*■ 4 *.*:* :* 4 -4 -4 -4 * 44 * 4- 4 ir:4 ■*-:4-:4>-4---i-i4-. 

FUNCTION DIAGthNAME) 

***** tXPLANAttoN 0 F THE CALLING SEQUENCE 
1 - PRIN7 FLAG 

IF I o -e, THE blacilosTlC TRACE WILL RE fURNEb OFF; 

IF I o. *f* The diagnostic tface will be tORNEo on. 

IF 1 t 0* blAG WILL PRINT the XXXXXX ENTREO MESSAGE. 
IF 16 |» DIAG WILL PRINT THE XXXXXX EXITED MESSAGE, 

IF 1 b g, o!Ag WILL PRINT THE XXXXXX INTRNL MESSAGE. 

NAME - THE NAME OF THE ROUTINE TO BE PRINTED OUT WITH 
I = 0« I «2. 

LOGICAL PA6E*0IA0 
DIMENSION HS0I1) 

DATA (MSG(U) « Jrl , D/'ENTRED* ♦ 'EXITED* , * INTRNL */ 

DIAG b .FALSE. 

IF ( I ) I 0,40,40 
10 IF ( I • ♦ I) 20,10,10 
20 IFLG s 0 
RETURN 


10 IFLG s | 

IF (PAGE (0 ) ) WRITE(6,6000) 

RETURN 

MO IF ( IFlG.EQ.O ) RETURN 

WRITE (6, 60 10) NAMEtHSGI It 1 1 
'DIAG = .TRUE. 

RETURN ' 

6000 FORMAT ( '0**DIAGN05TIC TRACE** 1 I 
:■ . . 

6010 FORMAT! IXA6t IXAfc) 

END 
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FUNCTI0N DPDD 


W 

I 

M 

M 

to 


t FUNCTION OPOOfTtO) 

2 COMMON /RFPR/ RF (10) 

V COMMON /CE0$/G(4I) 

4 COMMON /SCRH/ X(40i 

5 C 

6 C.... CALCULATES OP/OO OF THE EQUATION OF STATE 


7 

C 


8 


R=RF(S) 

9 


02=0*0 

10 


D1=0J*0 

H 


04=01*0 

12 


DSs04*D 

IT 


06=0S*0 

14 


07=06*0 

IS 


08=07*0 

16 


04=08*0 

IT 


010=09*0 

18 


01 l=DIO*D 

19 


012=01 1*0 

20 


011=012*0 

21 


TS= SQRTfT) 

22 


T2=T*T 

2V 


T1=T2*J 

24 


T4=T1*T 

2S 


GM=G (4 1 ) 

26 


F= EXP ( 6H*D2 ) 

2T 


FI=2.00*F*GM*0 

28 


F2I=1,000*F*D2 *F|*D1 

29 


F22=S.CIOO*F*04 *FI*OS 

10 


F21=7.000*P*06 *FI*D7 

11 


F24a9.000*F*08 *FI*09 

12 


F2S= | | .00*F*0I0+F|*DI 1 

11 


F26=I1,00*F*0I2*FI*DI1 

14 


X< l)=2.00*D*T 

IS 


X< 2)=2.00*D*TS 

16 


X< 1)=2.00*D _ 

17 


X< 4)=8,oo*0/T 

18 


X< S)=2, 00*0/T2 

19 


X( 6)=1.00*02*T 

40 


X( 7)81,00*02 

4 1 


X< B)=1,00*02/T 

42 


X< 9 )=1 ,00*D2/T2 

41 


X(I0)=m.00*01*T 

44 


X( 1 1 )=4, 00*01 

4S 


X(I2)=4.00*01/T 

46 


X(I1)=S. 00*04 

47 


X( l4)=6,00*0S/7 

»»e 


X(IS)=6,00*08/T2 

49 


X( I6)=7.00*06/T 

so 


X( I7)=8.00*07/T 

SI 


X < 1 8 ) =8,00*D7/T2 

S2 


X( I9) = 9.00*D?/T2 

Si 


X( 20 ) =F2 1 /T2 

S4 


X(2I )=F2I/T1 

ss 


X(22)=F22/T2 

S6 


X ( 21 )=F22/T4 

87 


X(24)=F21/T2 


r 
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DPOD 


*jb 

X(2S)sP21/Tl 

•59 

X(26}=F24/T2 

60 

X(27)=F2U/m 

61 

X(28>sF2<5/72 

62 

X(29)sF2'3/n 

61 

XI 10 )sF26/T2 

64 

X(ll )=F26/T3 

6*> 

X( 12 )sF26/T4 

66 

n=i2 

67 

DPDD=0.0 

68 

DO 1 K=1,N 

i69 

1 DPOO=t)POO + X(K! 

, TO 

OPDO=OPDD+R*r 

7 1 

RETURN 

;72 

END 
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FUNCTI0N DPDDB 


1 FUNCTION OPODB(TBiDB) 

2 COMMON /RFPR/ RFIIO) 

i wr=sp(T) 

4 t S Tfi/I*fl 

•J ft = OB * MB1,542l7E*1/ Wt * i.MIABNTE.gj . 

■i OPDOB s DpDD(TiO) *• N51.54217E-1 * JiOH25ET5/fWT * A.&4*»7572R*1 * 

f I 2,87l68M7E-2> 

i RETURN 

4 End 
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FUNCTI0N DPDT 


' I 
2 
r 

4 

, S 
6 
1 7 

e 

9 

10 

11 

12 
II 

14 

15 

16 
' (7 

IS 
19 
, 20 
21 
22 

23 

24 
1 25 

26 

27 

2e 

29 

30 

31 

32 
i 37 

34 

35 

36 

37 

38 

39 

40 
4 I 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


FUNCTION DPDTCT.D) 

COMMON /CE0S/C<4I) 

COMMON /PFPfi/ RF(IO) 

COMMON /SCRH/ X<40> 

C 

C.... CALCULATES DP/DT OF THE EQUATION OP STATE 

C 

R=RF<5) 

02=0*0 
03=02*D 
04=03*0 
05=04*0 
06=05*0 
07=06*0 
08=07*0 
09=08*0 
010=09*0 
011 = 010*0 
012 = 011*0 
01 3=01 2*D 
TS= SQRTI7) 

: T2=T*T 
T3=T2*T 
T4=T3*T 
T5=Tm*T 
Gm=0(4I ) 

F= EXP 1 6M*02 j 
X( lj=D2 

X< 21=02/(2, 00«TS) 

X( 3>=0,0 

X( 4)=-D2/T2 

X( 5 )=-2. 00*02/73 

X( 6 ) =03 

X( 7 )=0a0 

X( 81=-D3/T2 

X< »I=-2. 00*03/77 

X( I 0 ) =04 

X( 1 1 1=0,0 

X(I2)=-D4/T2 

X( I 3 )=0, 0 

X( I4)o-06/T2 

X( I5)s-2,00*D6/T3 

X(I6)=-D7/T2 

X< I7)=-D8/T2 

X( I8)=-2,00*08/t7 

X( I9)=-2,00*09/T7 

X(20>=-2,00*03*F/T3 

X(2I 1=-3,00*03*F/T4 

X ( 22 ) =«2, 00*D5*F/T3 

X ( 2 3 )=«4 ,00*05*F/T5' 

X(24)s-2,00*D7*F/T3 
X( 25 )n»3, 00*07* p /T4 
X(26)=r2,00*D9*F/T3 
X(27)=-4.00*D9*F/T5 
X(28)=-2. 00*01 l*F/T3 
X(29)=-3, 00*01 l*F/T4 
X(70>3-2,00*DI7*F/T3 
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«*«««••* OPOT ;*»***»** 

ns Xni)s--J,00«0n*F/T«* 

59 Xn2)3»4,00*DI?«F/Ti$ 

60 N=?2 

61 PPPtsO.O 

62 DO I Ktt «N 

67 VPDTsDP0T4X(KtP0(Kt 

64 PPDTsOPOUP*D 

6«j RETURN 

66 ENO 
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FUNCTI0N DPDTB 


FUNCTION DPOT0fTB,DB) 

COMMON /RFPR/ RF(IO) 

WT=RF(7) 

T = TB/t.8 . 

0 s 08 * M'51.SR217Ei.1/(WT * 2.8mB47E«2 j 
OPOT0 s 0P0T<T,0) * «.0IT2SE»S/n.i * 6.8747B72E*%> 

return 

END 
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SUBR0UTINE DPDTVP 


¥ 


00 


1 

2 

r 

4 

•5 

6 

7 

e 

9 

10 

11 

12 
I? 

m 

is 

16 

17 

is 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 


SUBROUTINE DP0TVP(7,P,0PpTI 
COMMON/CVPN/OII I) /CRPR/CRIli 
COMMON /SCRH/ X(40 j 

c 

C.... CALCULATE OP/OT FOR THE yAPOR PRESSURE EQUATION 
C 

TC=CF(1) 

AS0( I I j 

T2=T«T 

71=T*T2 

T4=T*T1 

T5=T«T4 

X ( I » = -1.0/72 
X(2) = 0.0 

xn> o i.o 

XI4) s 2,0*T' 

X<5) e 1.0*72 
X(6) a 4,0*71 
X 1 7 ) = S.0*74 
X(8 ) s 6,0*TS 
X ( 9 I a I.O/T 

XI 10) a <TC-7>**<A-I.0)*<-A) 

OPDT = 0.0 

00 I 1=1,10 

I PPDT=DPDT+X(n*6(lj 
DPDT=DPDT*P 
RETURN 
END 
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FUNCTI0N DSATl 



i 

FUNCTION DSATL(T) 


2 

.COMMON /CRPR/CR(T) /CSL/QCT) 


r 

U 

COMMON /SCRH/ B(40 j 

( 


5 

c.... this function supplies an approximate value for the 


6 

C.... DENSITY OF THE SATURATED LIQUID 


7 

c 


; e 

TC=CR(!) 


1 9 

Xc(TC-T)/TC 


10 

X2=X»X 


it 

X1=X*X2 


12 

X4=X*X1 


'll 

X5=X*X4 


14 

B( Its 1,0 


IS 

B(2)cX 


16 

R(1I=X2 


17 

BI4)cXl 


ne 

BISlexM 


19 

B(6)rx5 


20 

8(7) a ALOCjx) 


21 

DSL a 0,0 


22 

DO 1 lo | ,7 , 

td 

;2i 

1 DSLaDSL+B ( 1 >*G( I) 

i 

24 

DSATLaDSL 

M 

M 

25 

RETURN 

to 

26 

END 
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FUNCTI0N DSATV 


W 

I 

H* 

to 

o 


1 FUNCTION DSATV <T1 

2 COMMON /CRPR/CPtT) /CSV/fl(7) 

1 COHMON /SCRH/ BI^O) 

V C 

1 C..., THIS FUNCTION SUPPLIES An APPROXIMATE VArUE FOR THE 

6 C...t DENSITV OF THE SATUREATED VAPOR 

•T C 

8 TCsCR(T) 

9 X=(TC-T)/TC 

10 X2=X*X 

11 X1=X*X2 

12 X4=X*XT 

11 XS=X*XM 

m biii s i.o 

M5 B(2)=X 

i6 Bnisxa 

IT B|4)SXT 

18 B(SI=X4 

19 B(6)=XS 

20 B(7) s ALOG(X) 

21 OSV = 0,0 

22 DO I 1=1,7 

I PSV=DS U +B I t } *G{ I ) 

2R PSV = EXP ? OSV ) 

2<5 DSATVsDSV 

26 RETURN 

27 END 
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PR0CEDURE DEFINITJ0N PR0CESS0R - DUMMY 


I DUMMY* PROC 

: 2 c 

r DIMENSION SCRTCH(IOO) 

’ N C 

5 COMMON 7CDUMMY/ IGRBA6<I00I 

6 C 

i T EQUIVALENCE (I0RBAG»5CRTCWj 

# C 

, 9 c ***** CDUMMY VARIABLE DESCRIPTION 

10 C 

11 c IGRBAS - A SCRATCH AREA FOR VARIABLE STORAGE WHICH IS 

I '2 C NOT TO BE SAVE FROM ON ROUTINE TO ANOTHER, 

II end 


td 


i 

»-• 

to 


\ 

I 



I 
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**« SUBROUTINE ECLSS 
I SUBROUTINE ECtSS 



2 

C 



1 


LOGICAL JPfPAGE 


4 

c 



S 

c 



6 


INCLUDE CACCUH 


T 


INCLUDE CAPtl 


8 


INCLUDE COCVCL 


9 


INCLUDE CECLSS 


10 


INCLUDE CENG 


II 


INCLUDE CEUEL 


12 


INCLUDE CHEX 


IV 


INCLUDE CHSORC 


m 


INCLUDE C10UMT 


IS 


INCLUDE CNATRL 


16 


INCLUDE CONST 


IT 


INCLUDE CP"4P 


18 


INCLUDE CTANK 


19 


INCLUDE TABLOK 


20 

c 



21 


DIMENSION W0OTXIHHX.2) 


22 

21 

24 


EQUIVALENCE (HDOTCPfWOOTX) 

W 

c ********************************************************************* 

1 

M 

25 

c 


to 

26 


UP t PAGE ( 0 i 

bo 

27 

c 


28 


WRITE HOT. 6000) 


29 

6000 

FORMAT<//T18, '*** INITIATE PROGRAM AND CHARACTERISE LIFE SUPPORT P 


10 


iarameters ***'//) 


11 


WRjTE 1 lOTt 600 1 ) 


12 

6001 

FORMAT ( //f 2* PARAMETER '»T14»'CYCLE»I* *T26* 'CYCLE-2* , 


11 


1 TIB, *CYCLE-1',TS0» 'CYCLE-4 i,T62, ' CYCLE-S ' »TT4» 'CYCLE-6' »TR6. 


•»4 


2 'CYCLE- 71 , T98,' CYCLE-8 ',TI 10, 'CYCLE- 9 ' *T 121, 'CYCLE-10'/) 


IS 

C 



16 

C 



17 

c ** 



16 

C 



19 

C 

BEGIN COMPUTATIONS FOR SUPERCRITICAL STORAGE 


40 

C 



4 1 

c ** 



42 

c 



41 

c 

*** SET SELECTED INPUT PARAMETERS FOR CONVENIENCE 


44 

c 



4S 


ROP02 « SOPRESf 1,1) 


46 


P0PN2 e SOPRES (2,1) 


47 


PVP02 r SVPRES (1,1) 


4e 


PVPNJ a SVPRES ( 2 , | ) 


49 


T021N = SITEMPI 1 , 1 ) 


SO 


TN2IN s SITEMPI 2, 1 ) 


SI 

c 



S2 

■ :C 

*** COMPUTE QUANTITY OF FLUIDS :CONSUHED FOR LIFE SUPPORT, 


SI 

c 

*** LEAKAGE, AND AIRLOCK OR CABIN REPRESSUR1 IATION. COMPUTE 


S4 

c 

*** gas regd, for repressurisation amd total gas reomts. 


SS 

c 



S6 


02MC0N c 0.0 


S7 


02LC0N s 0.0 
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B-123 


ECLSS 




S8 


S9 


60 


61 


b2 


61 


64 


6S 


66 


67 


68 

c 

69 


TO 

c 

. 71 


72 


• 71 


74 


7S 


76 

c 

77 

c 

1 78 

c 

, 79 

c 

■ 80 

c 

81 

c 

82 


81 

•< 

84 


8S 


! 86 


87 


88 


89 


90 


91 


92 


1 91 


94 


9S 


'96 


97 


98 


99 


100 


101 

e 

102 

c 

101 

c 

104 

c 

1 05 


106 


107 


108 


109 


no 

c 

in 

c 

1 12 

c 

111 


114 


1 IS 

c 


N2LC0N =0.0 
I = 0 

00 10 II s l*NDCYCL,2 

1 = l ♦ I . 

T>2WtYO) s (02FN0M/24.0) * NCREV * tCYCLEdlJ 
O2MC0N re 02MC0N 4 02HWTI I) 

02LWT(I) = 0.21 * (GLKRAT/24.0) * DCYCLEdl) 
02LC0N B 02LC0N 4 02LWT(I) 

M2UWT{!) s 0.79 * (GLKRAT/24.0) * DCYCLE(II) 
M2LC0H = K2LC0N ♦ N2LWTI!) 


0 LBS 
0 LBS 
0 LBS 


10 CONTINUE 

GASwGT e .CABvOL/11.2741 
02REPR c 0.21 •* NRPRES *' 
N2PEPR e 0.79 * NRPRES * 
02 C0US e 02MC0N ♦ O 2 LCON 
N2C0MS = N2LC0N 4 N2REPR 


GASWGT 
GASWGT 
4 02REPR 


B AIR AT IM.T PSIA AND 70 F 


B LBS 
0 LBS 


*** OUTPUT THE DATA COMPUTEO TO THIS POINT *** 


6002 

600 

601 

602 

601 

609 

605 

606 
607 


WRITE HOT 
FORMAT ( /T1 
IFOR ENTIRE 
WRITE (IOT 
FORMAT!/) 
WRITE (IOT 
FORMAT (Tli 
WRITp (IOT 
F0 RMA T (t1» 
WRITE (IOT 
F0RMAT(T1, 
WRITE (IOT 
F0RMAT(T1, 
WRITE (IOT 
FORMAT ( T1 . 
WRITE (IOT 
FOFMAT ( T1 * 
WRITE (IOT 
F0RMAT(T1, 


,6002) 

, 'COMPUTE QUANTITY OF FLUIDS' CONSUMED EACH INTERVAL AND 
MISSION' ) 

,600) 


,601) (02MWT (N j ,Nsl « KCYCLE) 

' 02 MWT e',Tll,|0(F8.S*4X)) 

,602) (02LWT(N),Nsl, KCYCLE) 

1 02LWT e ' » j 1 1 » I 0 ( F 8 , S , 4 x ) ) 

,601) (N2LWT(Nj,N=l, KCYCLE) 

'N2LWT =',TI1,I0(F8.S,9X)) 

>604) O2HC0H, 02LCON 

'02MC0N =' ,TI1,F8.1,T2S, '02LC0N *MT17,FB.lj 
,60S) N2LC0N, GASWGT . 

'N2LC0H =', Til, FR.1,T2S, 'GASWGT B«, TIT, F8.1) 
,606) 02REPR, N2REPR 

'02 REPR e',TI 1,F8.1*T2S, 'N2REPR ,TlT,F8il) 
,607) 02CONS, M2C0NS 

1 02CONS =',TI1,F8.1,T2S,'N2C0NS =',T17,F8.lj 

*** COMPUTE THE CONT jNGENCY RESERVE GASES REQD.FOR THE 
*** MISSION 


02MRES e (02FNOM/24.0) * NCREW * NOARES ■*' 24,0 
02L9E5 = 0.21 * (GLKRAT/24.0) • NOARES * 24.0 
N2LRES = 0.79 * (GLKRAT/24,0) * NOARES * 24.0 
02RES = CSftRGS 4 02LRES 
N2RE5 = N2LRES 

•*** COMPUTE USEABLE GAS CONSUMABLES TOTAL 


02T0TU rs 02C0NS 4 
N2T0TU e N2C0NS -4 


02RES 

N2RES 


0 lbs 

B LBS 


B LBS 
B LBS 
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B-124 


ECLSS' 


116 
i IT 
JIB 
I I 9 
120 
121 
122 
121 

124 

125 

126 

127 

128 
129 
110 
111 
112 
111 
114 
I IS 
116 

137 

138 

139 

140 
1 4 | 
142 

1 4 1 
|U4 

145 

146 

147 

148 

149 

no 

1*5 1 
152 
151 

154 

155 

156 

157 

158 

no 

160 

161 

162 

161 

164 

165 

166 

167 

168 

169 

170 

171 

172 
171 


C 

C 

C 

c 


*** OUTPUT THE DATA COMPUTED 70 THIS POINT *** 


WRITE <I0T»60011 

6001 F0RMAT(/T1, 'CONTINGENCY RESERVE FLUIDS REOO.FOR MISSION' j 
WRITE ( 107*600) 

WRITE ( 1 OT 16 O 8 ) 02MRES* 02LRES* N2LRES 

608 FORMAT! T3 , '02MRES = ' *T I 1,F8 , 1, T25. ' 02LRES e« *T1T*FB.1.T50* • N2LRES 
I s' * T60*F8 , 1) 

WRITE UOTt609) 02RES, N2RES 

609 F0RMAT(T7 f '02RES s < *T 1 1, Fs , 1* T25, 'N2RES ='*Tl7*F8.1) 

C 

C 

WRITE ( IOT *6004 ) 

6004 FORMAT !/T1*'T0TaL USABLE FLUIDS AVAILABLE') 

WRITE <IOTt600) 

WRITE ' < IOT * 6 1 0) 02T0TU* N2T0TU 

610 F0RMATIT1, '02TOTU = ' t'T 1 1 , F8 . 1*725* 'N2T0TU a* *T17*F8.1) 

C 

C **• COMPUTE NOMINAL FLOWRATE AND REPRESSURIIATION FLOWRATE 

C ■*** FOP GASES » COMPUTE MAX FLOW RATE FOR GASES. 

c *** :comfmte quantity gases consumed each interval 

c 

c 


In 0 

00 15 II s I.N0CYCL,2 

1 e I ♦ 1 

WDOTONU) 8 (02MWTII) ♦ 02LWT ( 1 1 l/OCYCLE Ml) 
WDciTnnU) = H2l w T ( I ) /DCYCL^ ini 
IF ( RPRTIMf I ) .EO.O.O) GO TO IB 


WOOTOR(I 
WDOTNR ( 


11 


= (02REPR/HRPRESl/RPRTIM(I) 
= (N2REPP/NRPRES)/RPRTIM(I) 

IB W0T02 ( I ) - WDOTON(I) ♦ WDOTOR(l) 
V)DTN2(I) c WOOTNN(I) ♦ kOOTNR(I) 

WT02 ( I J s WDOTON(I)*DCYCLE(II) ♦ 
WTM2 ( I ) 8 WOOTNN(!)*DCYCLEU!) ♦ 

15 CONTINUE 


LBS 

LBS 

LBS 

LBS 


B LBS 


WDOTOR(!)*RPRTIH(I) 
WDOTNR II )*PPRTJM( I ) 


PER 

PER 

PER 

PER 

PER 

R 

B 


HR 

HR 

HR 

HR 

HR 

LflS 

LBS 


C 


c 


c 

c 

c 

c 


WOTOMX = 0.0 
WOTNMX = 0,0 
DO |7 I s | fKCyCLE 
IF(WDT02(I),LT,WDT0HX) GO TO 16 
WOTOMX s WPT02 ( I ) 

IHAX :s t 

16 IF(WDTN2(lj.tT, WOTNMX) GO TO IT 
WOTNMX s W0TN2II) 

JNAX •= j 

17 CONTINUE 


WOOT 1(1) e W0TOMX/1600.0 
WDOT 1(2) = WDTMMX/1600.0 
WDOTT(I) s WDOTl(l) 
W00TTI2) a W00TII2) 


a LBS PER SECOND 
B LBS PER SECOND 
a LBS PER SECOND 
8 LBS PER SECOND 


*** OUTPUT' THE DATA COMPUTED TO THIS POINT ***■ 
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ECLSS 


i 


W 

i 

M 

to 

Cn 


• TM 
ITS 
IT6 
177' 

178 

179 

ieo 
lei 
162 
181 
1 84 
IBS 
186 

187 

188 
18? 

190 
1,91 
192 

191 

194 

1 9 5 

196 

197 

198 

199 

200 
201 
202 
201 

204 

20 5 

206 
207 
:208 
.209 
210 
21 I 
212 
211 

214 

2 1 5 

216 

217 

218 

219 

220 
•221 
222 
221 
'224' 

225 

226 

227 

228 
229 
210 
21 1 


C 

WRITE <IOT,600S) 

600S FORMAT) /Tlf • NOMINAL FLOWRATE* REPRESSURIIATION FLOWRATE* MAX-FLOWR 
IATE* and OUANTITV EACH FLUID CONSUMED PER INTERVAL*) 

WRITE ( IOT *600 ) 

WRITE (IOT * 6 1 I ) <WDOTON(N)*N=lfKCYCLEi 

611 FORMAT ( T 1 * * WDOTOM = ' . T 11 , I 0 ( F8 . S,4X ) ) 

WniTF ( IOT r 6 I 2 ) ( WDOTMH (H ) , He I * KCYCLE j 

612 FORMATIT1, 'WOOTNN st,TI1,IO(Ffl.S,4X)) 

WRITE ( I0T*6 ID (WDOTOR(N)«N=I .KCYCLE) 

611 FORMAT(T?t 'WDOTOR = ' * T 1 1 , 1 0 ( Ffl ,S , 4X ) ) 

WRITE ( IOT *614) (WPOTNR(M), 11= I, KCYCLE) 

614 FORMAT ( T1 f ' WDOTNR = ' , T 1 1 , I 0 ( Ffl .S ,4X ) ) 

WRITE (I0T.6IS) (WDTC2(N)»U=I iXCYCLE) 

6 I S FORMAT(T1, IKOT02 = ' , T 1 1 , I 0 ( Ffl . S .4 X ) ) 

WRITE (IOT, 616) (WDTN2(N),N=I .XCYCLEj 

616 FORMAT ( T1, 'WDTH2 s'*TI1,in(F8.S«4X)) 

WRITE (IOT, 617) WDTOMX, WDTfiMX 

617 FORMATITI, 'WDTOMX = 1 , T 1 1, F8 . 1 , T2S. ' WDTNMX Bi*71T*F8.i) 

WRITE (IOT, 61?) (WT02 (N ) ,11s | .KCYCLE ) 

619 F0RMAT(T1, 'WT02 a ' ,T 1 1 , I 0 < F8 .4 , 4X ) ) 

WRITE (IOT, 620) (WTH2(H),H=I, KCYCLE) 

620 FORMATITI, 'WTN2 = ' ,T 1 1 , 1 0 ( F8 . 4 , 4X ) 1 
C 

C ■*** DETERMINE INITIAL FLUID TANK TEMPERATURES' 

C 

CALL FINTAB(NTBID(8)) 

XTA8 ( | ) .= POP02 
XTA0 (2 ) C RHOBEG ( I ) 

TENP02 = MIPE(2,XTAB) 

c 

CALL FINTAB ( NTB ID (4 1 ) j 
XTA8(| ) := P0PN2 
XTAB(2) := P1I0BEG(2) 

TEMPH2 := MIPE(2,XTAB) 

:c .... 

:c *** DETERMINE INITIAL CSU8V VALUES FOR TANK T AND P CONDITIONS 

•C- - 

CISBVO ■= :CSUBV(TEMP02, P0P02, 1 ) 

CIS8VN s :CSUBV(TEMPN2,P0PN2,I8) 

C 

C «*• COMPUTE FLUID COMPRESSIBILITY AT' FINAL TANK CONDITIONS 

C 

ZFO -a-. ZGETitTKFTEMd j,TKFPRS(l),l) 

ZFN = ZGET(TKFTEM(2)»TKFPRS(2),I8 j 
C 

C *** COMPUTE THE PERCENT OF USABLE FLUIDS WITHDRAWN 

,C <**• EACH INTERVAL 

C 

TKOW = 0,0 
TKNW : = 0,0 
GOTOMX =0,0 
QDTNMX = 0,0 
HWTOMX =0.0 
HWTNMX =0.0 
HWTCTT = 0.0 
HWTNTT = 0.0 
TWTOMX = 0.0 
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ECL5S * 


212 

211 

HIM 


215 

216 

217 

218 
219 
2M0 

C 

2M| 

2M2 

2M1 

c 

2 U M 

c 

2MS' 

C 

:2M6 

2MT 

:2M8 

C 

:2M9 
2S0 
2*5 1 

c 

2S2 

2*53 

2SM 

c 

2SS 

C 

2S6 

c 

297 

2S8 

299 

260 

261 

c 

262 

261 

26M 

265 

266 

c 

267 

c 

266 

c 

269 

c 

270 

27| 

272 

271 

c 

27M 

275 

276 

277 

c 

278 

:c 

279 

c 

280 

281 

282 

281 

c 

:28M 


285 

286 

287 

288 
289 

c 


TWTNHX =0,0 
TXTOTT *■ 0.0 
TWTNTT B’ 0,0 

DO 20 I ■s | , KCYCLE 
TKOW B TKOW + WT02UJ 
TK02DPU) a TKOW 
TKNW s TKNW ♦ WTN2( I ) 

TkNHDP 1 1 j a TKNW 

PCOXWD(I) = TK020PU)/02T0TU 
PCN2W0 ( I ) :e TKN2DP(I >/N2TOTU 

*** COMPUTE DENSITY OF FLUIDS AS FUNCTION OF PERCENT WITHDRAWN 

Cl a I MM.O/ ( RHOBEG ( I ) * j ISMM.2SM6/1I ,9988 j ) 

C2 a |WN.o/(PH08EG(2) * ( I BMW , 2SM6/28.0 1 IN ) ) 

Cl a |,0- ((Cl * TKFPRS(l»»/<IFO * TKFTCH(l)ii 
CM = 1.0 - ((C2 * TKFPPS( 2) ) / ( ZFN * TKFTEM(J j ) | 

02RH0 ( I ) a RHOBEG ( I j * (|,0 W (PCOXWD(I) * C3 j j 
N2RHO ( I ) :s RHOBEG ( 2 ) * (1.0 - (PCN2WO(I) * CM)) 

*** COMPUTE FLUID TEMPERATURE IN TANKS FOR EACH INTERVAL 

CALL FINTAB ( NTH 20(8) j 
XTABj | ) .a POP02 
.XTAB ( 2 ) e 02PH0 ( 1 ) 

02TEMP ( I ) = MIPE(2,XTAB) 

CALL FINTAB (NTBID(MU) 

XTAB ( I ) s P0PN2 
XTAB (2) = H2RHO ( J ) 

N2TEMPCI) a MIPE(2,XTAB> 

*** COMPUTE SPECIFIC HEAT INPUT (DO/DMi FOR FLUIDS AS F(D,P) 
*** COMPUTE ENERGY DERIVATIVE (DP/DU) FOR FLUIDS AS F(D,P) 

CALL PHTH0N(O2TEMP< I ) ,02RH0 ( I) , I .PHI, THETA j 
DQDM02 ( I ) c THETA 
DPDU02 ( I j = PHI 

CALL PHTHOH ( M2TEMP { I) , N2RHO ( I) , 1 8 , PHI » THETA ) 

DODMM2(I) :s theta 
DPDUN 2U) :a PHI 

*»* SIZE CONDITIONING HEAT EXCHANGERS' PON FLUIDS 

HLSO = OXENTH(POP02,TLSNOM( I) ) 

HLSN = NIENTH(POPN2,TLSN0M(2) ) 

02H(I) :a: 0XENTH(P0P02,02TEMP(D) 

N2H(I) a NIENTH ( POPN2 , N2TEMP ( I ) ) 

QDTOR(I) r KPT02(I) * (HLSO - 02H(I)) 

QDTOMX = AM AX I (QDTOMX, QDTOR ( I ) ) 

OOTNR(I) = WDTH2II) * (HLSN - N2H (I)) 

QDTNMX a AMAX I (ODTNMX , ODTNR ( I ) ) 


LMSC-A991396 


B-127 


ECISS 


, 290 
29| 

| 292 
291 
294 
299 
296 
1-297 

298 

299 
100 
101 
102 
301 
104 

; 109 
106 
,107 


110 
'>il I 
112 
in 

'114 

119 

116 

117 

118 
119 

1-120 
121 
122 
121 
| 124 
'129 
126 

127 

128 
129 
'110 
111 

I 112 

in 

114 

119 

116 

117 

118 
119 
140 
14 | 
142 
.141 
144 
149 

146 

147 


C 

c 

:C 


c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 


c 

:c 

c 

c 

c 

c 

c 

c 


*** COMPUTE POWER REQUIRED TO PROVIDE ENERGY IN HEAT XCHNGR; 

HWAT02I I ) e QDTORI I ) * 0.291 
HWTOHX a AMAXI (HWT0MX,HWAT02< I ) ) 

HWTOTT a HWTOTT ♦ HWAT02(I) 

HWATf!2(I) c OPTNR(I) * 0,291 
HWTNMX b AIIAX I { HWTNMX t HWATN2 (1)1 
HWTNTT = HWTNTT' ♦ HWATN2 ( I ) 

*** SIZE 02 TANK AND N2 TANK HEAT REQUIREMENTS 

QDTTKO( I j :e WDT02(I) * DQ0tt02(I) 

QDTTKN(I) e WDTN2(I) * DQDMN2(I) 

CALCULATE THE TANK HEATER RATINGS FOR EACH FLUID TANX BASED UPON 
INPUT HEATER DIAMETER AND LENGTH 

* PROGRAM WILL USE CALCULATED VALUES ONLY IF INPUT HTRFLXj2)B0i0 * 

HTRRAI s (TwT0MX/0,291)/(PI * HTRDIAt I j * HTRLNGI I j j 
HTRPA2 S (TWTNMX/O ,291 ) /(PI * HTPD!A(2) * HTRLNG(2) ) 

COMPUTE POWER REQUIRED TO PROVIDE ENERGY INTO TANKS 

TWAT02 ( I J 'B QDTTKO(I) * 0.291 
TWTOMX = AIIAX 1 (TWT0MX»TWAT02( I ) ) 

TWTOTT = TWTOTT ♦ TWAT02(I) 

TWA TN2 ( I ) -r QOTTKN(I) * 0.291 
TWTNMX = AIIAX I ( TWTNMX ?TWATN2 (I j I 
TWTNTT a THTNTT ♦ TWATN2 ( 1 ) 

20 CONTINUE 

TOTWMX -s HWTOMX HWTNMX ♦ TWTOMX ♦ TWTNMX 
TOTWAT e HWTOTT ♦ HWTNTT TWTOTT * TWTNTT 
TOTPOW a TOTWAT/IOOO.O 


■•*** OUTPUT THE DATA COMPUTED TO THIS POINT •** 


J P a PAGE ( 0 ) 

WRITE HOT, 6116) 

6116 FORMAT ( //T42t •*** CONTINUE COMPUTATION OF - ECLSS- PARAMETERS *** 
I '//> 


WRITE < IOT »600 1 ) 

WRITE (I0T.6006) 

6006 FORMAT! /Tli i DETERMINE PLUIO TANK CONDITIONS FOR DUTY CVCLE' j 
WRITE (IOT, 600) 

WRITE ( IOT,62 I ) TEMpOg, TEMpm2 

621 F0RMAT(T1, ITEHP02 al ,TI1,F8.2,T29, ITEMPN2 a«,T17*F8.2) 

WRITE (IOT, 622) CISBVO, CISBVN, IFO, IFN 

622 F0RM A T(T1 f 'CISRVO a',TI1,FB.4,T29, 'CISBVN a ' , Tl7,F8.4,T90, ' IFO 

la' ,T61,F8.4,T71,!ZFf| =' ,T86,F8.4) 

WRITE (IOT, 621) (PCOXWD(N j *N = I , KCYCI.E ) 

621 F0RMAT(T1, 'PCOXWO a ' ,T II , I 0 ( Ffi . 6, 4X ) ) 

WRITE ( IOT ,624 ) (PCfj2KD(N) ,H=I .XCYCLE) 
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IMS 

IMS 

•wo 

111 

wa 

isi 

'1S4 

3SS 

! r>6 

1ST 

1SB 

1S9 

•160 

161 

162 

169 
164 
'163 
166 
'167 
168 
H69 

170 

171 

172 
171 

. : 174 
'173 

176 

177 

178 
'179 

■iso 

181 

102 

181 

■IBM 

'183 

>386 

187 

180 

189 

'390 

'191 

192 

193 

194 
193 
196 
'197 
198 
'199 
•400 
401 
■402 
401 
•404 
403 


624 F0RMATtT1,'PCN2W0 s' »T t V. 1 0 (F8.6.4X)) 
write (J0T,62S) (02RH0 ( N j ,Ns I ,KCYCt.E ) 

623 FORMATtTI, '02RH0 S ' ,Tt If |0<F8 ,4.4V)) 

' WRITE (IOT, 626) (N2RH0(N),NsI*KCYCLE) 

626 F0RHA7 ( T 3 ♦ 'N2RH0 = ' *T II , | 0 ( F8 .4*47 ) > 

WRITE ( IOT >627) (02TEMP(N),N=l,KcYrLE) 

627 FORMA T (t1,'02tEMP =', y 1 1, |0(F8. 2,4>)) 

WRITE ( IOT *628) (N2TEMP(N) ,NS| .KCYCLE) 

628 FORMAT ( T7, 'N2TEMP =' VT I 1, | 0 (F8 . 2,4X I ) 

WRITE ( IOT ,629 ) (d« 0«02 (N ) . ti= I , K C LE > 

629 F0RMAt(t 1» 'DQDM02 a ' ,f I V, 1 0 (F8. 2,4) ) ) 

WRITE (IOT, 670} ( 00DMN2 ( N j , f!= I , KCYCLE ) 

670 F0RMAT(T3, 'D00MN2 a < ,T 17 , | 0 < FB .2,4X ) ) 

WRITE (IOT, 611) ( DP0UC2 ( f| )» N= I « KCYCLE ) 

611 FORMAT(Tl, , DP0| t l02 a ' , t I 7, 1 0 ( F8 . 1 ,4 x ) ) 

WRITE (IOT, 672) (DP0UN2<H),N=l,KCyCLE) 

612 FORMATtTI, 'DR0UN2 = ' ,T 1 1, 1 0 ( F8. 1,4X ) ) 

r, 

WRITE (IOT, 60077 

6007 F0RMAT(/T1, 'SIZE FUJIO’CONOITtONlNfi HEAT EXCHANGERS' j 
WRITE (IOT, 600) 

WRITE HOT, 618) HLSO* HLSN 

618 F0PMAT(T1, 'IILSO =' ,TI 1,F8.1,T23, 'HLSN 5* ♦TITtFS.I) 

WRITE (IOT, 611) (02H(N) »Nal , KCYCt.E) 

611 FORMAT (T1, '02H =',TI1,|0(E8.1,4*)) 

WRITE (IOT, 634) <N2H(N),Ns|, KCYCLE) 

614 FORMATtTI, 'N2H a ' ,T I 7, I 0 (FB. 1,4x ) > 

WRITE (IOT, 633) (OOTOR(M) ,N=( , KCYCLE) 

613 FORMATin, 'QPTOR a ' , T 1 1, I 0 ( F 8 . t ,4* I ) 

WRITE (IOT, 676) (QDTNR(N) ,N=I , KCYCLE) 

676 F0PMA T (r7 , 'COtMR = ' , T> 1, 1 0 ( FB. I ,4X ) ) 

WRITE ( IOT ,677 ) ODTOMX, OOTHMX 
617 FORMATtTI, 'QPTOMX ci,T 17,F8.|*T2S*«GDTNMX =‘»T1T,F8.t) 

WRITE (IOT, 678) IHWaT02(N),H=I, KCYCLE) 

678 F0RMAT(T7, 'HWAT02 = ' ,T 1 1, I 0(F8.2,4X ) ) 

WRITE (IOT, 679) (HWATN2(M),fl= I, KCYCLE) 

619 FORMATtTI, ' HW«TN2 a ' ,T I 7 , I 0 ( FB . 2, MX ) ) 

WRITE (IOT, 6401 HWTOMX, HWTNMX 

640 F0RMAT(T7, • HWTOMX = ' , T I 7 , F8 . 2 , T2S, ' HWTNMX sl,TlT*F8.2j 
WRITE (IOT, 641) HWTOTT, HWTNTT 

641 F0RMAT(T7, 'HWTOTT ='»TI7,Fg,l*T2S* 'HWTNTT a* ,Tl 7 »F 8 i | j 
WRITE ( IOT ,6008 ) 

6008 F0RMAT(/T7, 'SIZE FLUID TANK HEAT REQUIREMENTS') 

WRITE (IOT, 600) 

WRITE (IOT, 642) (QDTTKO ( N ), N= I , KCYCLE ) 

642 FoRMATITl, 'OOTTKO a ' *T 1 7 , I 0 ( F8 , 1 ,4X j ) 

WRITE (107,647) (QOTTKN(N),Na|, KCYCLE) 

641 FORMAT (T7, 'OOTTKN a',Tt7,|0(F8.l,4X)) 

WRITE (IOT, 644) ( TW A T02 ( N ), H= I , KcYcLE ) 

644 FORMAtItI* 'TWAt°Z ='*Tl7»IO{F8.l*4x)> 

WRITE (IOT, 643) ( TWATN2 ( M), Na I , KCYCLE) 

643 FORMATtTI, 'TWATN2 a ' ,T I 3, t 0 ( FB. t ,4X ) ) 

WRITE HOT, 646) TWTOMX, TWTIIMX 

646 F0RMAt(t 1» 'TWTOMX a ' , T I 7 , F8 . 1 , T2S* ' TWTNMX B',Tl7,F8.lj 
WniTE COT, 670) HTPRA), HTRRA2 

670 FORMAT ( T 3 V '02 TANK HEATER "ATINGbi ,E 6. I »T13, 'N2 TANK HEATER RATING 
l=’*F6.l) 


C 
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:mo6 


■MOT 
■MO 8 
■M09 
■MtO 
M ( | 
IM 1 2 
419 
M I M 
■Mil 
M 1 6 
IMIT 
<Mie 

M 1 9 
‘M2o 
M2 | 
M22 
■M29 
■ M24 
Mas 

M26 

M2T 

M28 


M29 

M90 


■M9 1 
M1Z 
Mil 


49M 

MTS 


M96 

MIT 


M98 


•499 
MMo 
MM | 
MM2 
MMT 
■MMm 


'MM<5 

■MM6 

MMT 

MM8 

MM9 

MSO 

•MSI 

MSZ 

MSI 

MSM 

MSS 

MS6 

MST 

MSf 

MS9 


M60 

,'M6| 

M6Z 

M69 


C *** COMPUTE FLUID DENSITIES AT FINAL TEMP. AND PRECONDITIONS 

C 

TKOMXT = 0.0 

TKNMXT s. C.O 

DO 90 Is WKCYCLE 

TKOMXT := AltAXI (TKOMXT, 02TEMPM)> 

TKNMXT •=■ AMAXI (TKNMXT, N2TEMP( I ) ) 

90 CONTINUE 

:c 

CALL DENSON ( TKOMXT, TKFPRSI I j , I ,RHOEND( ( j ,ZE0 j 
CALL DENSON ( TKMMXT,TKFPR5( 2 j , 2,RH0END( 2 | » IEN) 

C 

C *** COMPUTE HEIGHT OF RESIDUAL FLUIDS IN TANKS 

WTRSID(I) = (RHOEND( I i/RHOBEG( I >*( ».0-<RH0END{ I >/RHOBEG( I j jjj 
I * ( 02C0NS ♦ 02RES) 

HTPSID(2) s (RH0END(2)/RH0BEG(2)*( t.0-(RH0EHD(2>/RH0BEG(2))i) 

I * ( N2C0NS ■♦ N2RESI 

C 

C *** COMPUTE VOLUME OP THE FLUID TANKS 

VOLTK ( I ) s (O2T0TU ♦ WTRSI 0 ( I) J / ( 0.9T* ( RHOBEG ( t ) - RHOEND j I jjj 
V0LTK<2) c (N2T0TU WTRSI D (2) )/ (0.9T*( RHOBEG ( 2 ) - RH0END(2) ) ) 

C 

c *** COMPUTE AREA OF SPHERICAL FLUID’ TANKS 

C 

ARETK(I) e M.8M * (VOLTK) I )**0.667> 

ARETK ( 2 ) s M.8M * ( VOLTK ( 2 ) **0 ,66T I 
C 

C *** COMPUTE HEAT LEAK INTO FLUID TANKS 

:c 

QLKOTK ■= 0.0 
QLKNTK :s 0.0 
I = 0 

DO MO 11 c 2,NDC¥CL,2 

I = I ♦ I . ...... 

CALL TCOND (TENVR,02TEMP ( J ) .SHBAR (II, SITHIK ( I, I j ,SITVPE( I , I },'TOCND ) 
002LK(I) s TOCNO ’* ARETk (H * OCTClE(II) 

QLKOTK :s QLKOTK ♦ Q02LKU) 

C 

CALL TCOND (TEflyR, N2TEMP( I j, SNBAR(2), SITHIK {2M)*SITVPE(2,ij,TNCND) 
QN2LK ( 1 1 s TNCNO '* ARETK(2I * OCYCLE(It) 

QLKNTK a QLKNTK ♦ QN2LKU) ' 

C 

MO CONTINUE 

C 

c **» COMPUTE QUANTITY OF FLUIDS yENTED DURING MISSION INTERVALS 

C *** AND TOTAL FLUIDS VENTED DURING THE MISSION 

C 

WV02 = 0,0 
WVN2 •=• 0,0 
PVNTO a SVPRES( 1,1) 

PVNTH e SVPRES(2,|| 

DO SO I = I ,KCYCLE 

CSBV02 e CSUBVI 02TEMP( I J , P0P02* I ) 

CSPVM 2 e CSUDV(N2TEMP(I),P0PN2,IB) 

QREOOOdJ = ((VoLTK(l j*CSBVo2)/M8.9) * fPVNTO - P0P02) * (MM^O 
0RE9nN( I ) e ( (V0LTK(2)*CSBVN2)/SM.9) •*- (PVNTN - P0PN2) * IMM.O 
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MAN 


•465 


466 


46T 


M6a 


469 


MTO 


4T| 


NT2 


4T1 


4T4 

C 

NTS 


4T6 

C 

NTT 

c 

4T8 

c 

MT9 

c 

480 


we i 


M82 

c 

481 

c 

464 

c 

485 


486 


nbt 

c 

488 

c 

489 

c 

490 


49 1 


192 

c 

491 


494 


495 

c 

496 

c 

49T 

c 

490 


499 


500 

C 

50| 

:c- 

502 

c 

■501 


504 


505 


506 

c 

50T 


508 


509 

c 

510 


511 


512 


511 

c 

514 


515 


•516 

c 

5IT 


SI 8 

:C 

519 


520 

c 

52! 

c 


IF(OReOdO<! j,0T,G02LK<I) j GO TO MS 
PELO s fl02LK(!) - OREQOor!) 

WTVNTOm = DELS/ (CS8V02 * 02TEMPI I i •*• UPVNT0/P0P021 - ! .0) $ 
MS WV02 s WV02 . ♦ WTVNTOtH 

IF (QRE n DN ( I) .GT.QN2LK ( I ) j GO TO 4? 

DELGM = 0N2LK(I) - QPEODMU) 

WTVNTNI ! ) a PEL0N/fCSBVN2 * N 2 TEMPII) * ( IPVNTN/P0PN8 ) . liOj) 
MT WVN2 s WVN2 4 WTVNTNU 1 
IF( WV02.LT ,0,0) WV02 * 0,0 
IF(WVN2,LT,0.0) WVN2 a 0,0 

SO CONTINUE 


*** compute QUANTITY fluids loaded into tanks 

TOTwtUU e 02T0TU WTRSIDI I ) 4 WV02 
T0TWTH2) a N2T0TU 4 WTRslD(2) 4 WVN2 

*** compute diameter op fluid tanks - assumed .spherical 

DITK(I) e ill, 9098 4 (TOTWTLI I )/RHOBEG( I | I f**0,1li * 12,0 
PtTK(2) s ((1.9098* (T0TWTL(2) /RH0BEGI2) ) 1**0. Ill * 12.0 

*** COMPUTE FLUID TANK INSULATION HEIGHT 

it i e srTYPei i*i> 

1T2 c SITYPE(2f I ) 

TINT (1*1) a NOP(|*lj * ARETK(I) * RHOIJITlI * SITHtKi I * I } / 1 2 • 0 
TIHT (2,1) c N0P(2.I) * ARETK(2) * *H0I(IT2) * SITHIK(2» I J/12.0 

••*** COMPUTE DIAMETER OF FLUID TANK VACUUM JACKETS 

DIvJ(l) x OITK 4 1,60 
DIVJ(2) c DITK 4 I ,85 

*** COMPUTE WEIGHT OF FlUjO TANK PRESSURE VESSELS 

MATLI a SMTYPEI 1*1) 

CALL FINTAB f NTB I D f 9 > ♦MATU I ) 

FTUXI a MIPE( I tTKOMXT) 

THKMTI x ( 1 ,0 * P0P02 * 2,0 * (DITKI I )/2,0j )/FTUxl 
IF(THKMTI.LT,MINTHK(MATLI )) THKMTI a MINTHK(MATLI) 

MATL2 a SMTYPE (2*1) 

CALL FINTAB (NTBID< 9 J4MATL2) 

FTUX2 a MIPE(I.TKNMXT) 

THKMT2 a (|,0 * P0PN2 * 2,0* (0!TK<8)/8,0) J/FTUX2 
IF(THKMT2,LT,MINTHK(MATL2) I THKMT2 x- MINTHK<MATL2) 

HTPV(I) e 1.15 * ARETK(I) * RHoL(MATLI) •*■ t THKMT I / f 2* 0 i 

HTPv( 2) a 1.15 * ARETK(2) * RH0LIMATL2) * (THKHT2/|2«0j 

*** COMPUTE WEIGHT OF VACUUM JACKETS FOR FLUID TANKS 
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522 

527 

524 

525 

526 
.527 

528 
;529 
■570 

571 

572 
577 

574 

575 

576 

577 

578 

579 
540 
154 | 
542 
547 
544 
,545 

546 

547 

548 
■549 
550 
55 | 
552 

557 

554 

555 

556 
,557 

558 
■559 

560 

561 

562 

5 6 7 

564 

565 

566 
i 567 

568 

569 

570 

571 

572 
577 
574 


•5 f6 

577 

578 

579 


ECLSS ******** 

C ASSUME SPHERICAL VACUUM JACKET(HaRD SHELL) 606)*T6 ALUMINUM 

C 

MATL7 = 7 

CALL FINTAB (NTBID(9)*MATL7 j 
FTUX-J a MIPE ( I »TENVR ) 

C 

7HKM77 a (1,0 * (P0P02/2.0)* (DIvJI I )/2.0> >/FTUXl 
IF(7HKM77.L7.MJN7HK(MATL7j) THKMT7 R MtNTHK (HATL7J 
C 

7HKM74 s (1.0 * (POPN2/2;0) * ( 01 VJi 2) /2.0) )/FTUX7 
IF(7HKHT4.L7.MINTHK(HA7L7) ) THKMT4 R MINTHK ( MATL7 j 
C ...... 

HTVJO h (PI * (0IVJ(I)**2)/I44.0) * RHOL(HATLI) * tTHKMT7/t2,oi 
C 

W7VJN n (PI * (01Vv!(2)**2)/|44.0) * RHOL(HATLI) * fTHKHT4/t2;0) 

C 

C *** COMPUTE T07AL WEICH7 OF TANK 

C 

HT70T < I ) c WTPV< I ) ♦ M7VJ0 ♦ TlWT(t,»j 
H7707 ( 2 ) R HTPV(2) WTVJN ♦ T1WT(2,I) 

c 

c '******************************************************************. 

c 

C *** 0U7PU7 7HE DATA COMPUTED TO THIS POINT *** 

C 

UP a PAGE ( 0 j 
WRITE (I0T.6II6) 

WRITE (I0T.60OI) 

WRITE (I0T.6009) 

6009 FoRHA7(/T7 . 'HETERMInE FLUIO DENSITIES AT FInAL DUTY CYCLE CONDITIO 
INS AND DETERMINE RESIDUAL FLUID OUANTIESM 
WRITE ( IOT »600 j 

WRITE (IOT, 647) TKOHXT, TKNMXT 

647 F0RMAT(T7, ITKOMXT e ' ,T 17, FB . 2, T2S, 'TKNHXT S',T77,P8.2) 

WRITE (IOT, 648) RHnEND(l), RH0EN0(2) 

648 F0RMAT(T7, IRH0EN0-02 s » , T 1 5 , F8 .4 , T27, • RH0END-N2 R'»T42»F8^4) 

WRITE (IOT, 649) WTRSID(I), WTRSID<2) 

649 FORMAT (T7, IWTRS10-02 * ' ,TI 5 , F8 . T, T?T» « WTRSID-N2 ,T42»F8.7) 

WRITE (IOT, 6010) 

•6010 F0RMAT(/T1, (DETERMINE FLUID TAn* VOLUME AND SURFACE AREAS' j 
WRITE (IOT, 600) 

WRITE ( IOT, 650 ) VOLTK ( I ) , VOLTK ( 2 ) 

650 FoRmAT(T7, 'VOLTK-02 s ' , T 1 5 , F8 . 1, T27, ' V0LTK-N2 B«,T42*F8.7) 

WRITE (IOT, 651) ARETK(I), ARETK ( 2 ) 

651 FORMAT(TT, (AREA- 02 TK e» »TI 5,F8.1,T27, ' AREA-N 2 TK s»,T42,F8.7) 

WRITE (IOT, 6011) 

6011 FoRMAT(/T7i 'DETERMINE HEAT LEAK I N To FLUID TAn^S A N D QUANTITY OF V 
(ENTEO FLUIDS IF VENTING IS REQUIRED') 

WRITE (107,600) 

• WRITE (IOT, 652) TOCHO, THCNO 

652 FORMAT ( T7 ,' T0C||0 ='*Tl7,Efl.4,T2S,'TNCN0 s' ,T7T,F8.4) 

WRITE (IOT, 657) (Q02LK(N),N=I,KCYCLE) 

657 F0RMAT(T7, 'Q02LK =' ,TI7, 1 0 (F9 .6, 7X j ) 

WRITE (IOT, 654) (QN2LK(N)|Ns|,KCYCLE) 

654 F0RMAT(T7, '0M2LK s ' ,T I 7 , I 0 ( F9 ,6. 7X ) ) 

WRITE (IOT, 655) QLKOTK, GUOITK 

655 F0RMAT(T7* 'QI.KOTK = ' , T I 7 , F9 , 6, T25 , ' QLKNTK SI ,T7T*F9.6) 

WRITE (IOT, 656) ( GREORO ( N ) , N= I , KC YCLE ) 
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■580 

581 

582 
581 

584 

585 

586 

587 

588 

589 

590 

591 

592 
591 

594 

595 

596 

597 

598 

599 

600 
601 
602 
601 
■604 

605 

606 

607 

608 

609 

610 
61 I 
612 
611 

614 

615 

616 

617 

618 
6 • 9 
620 
621 
622 
621 

624 

625 

626 

627 

628 
629 
610 
611 
612 
611 

614 

615 

616 
617 


656 FORMATtTI, 'QREQDO b» ,TI 1, |0(F8,1,4X j ) 

WRITE (107,657) (QREQDN (N)»Nb|,KCYCLE) 

657 FORMATtTI, 'QPEflOH = ' *TI1, 10(F8.1,4X)) 

WRITE (I0T»658) <WTVNTO(Ni *Nst «KCVCLE j 

658 F0RMATtT1,'WTVHT0 = ' ,'T 1 1 f | 0 (F8 .1,4X > ) 

WRITE (IOT, 659) tWTVNTNIN).NS|,KcYcU) 

659 FORMAT(Tl»'WTVHTN eT, T I1,I0(F8.1,4X>) 

WRITE ( IOT #660 ) WV02.WVN2 

660 F0R«AT(T1, IHV02 S' *'T 1 1,'FB , 1»T25, >WVN2 B« *T1T*P8.1 j 

WRITE (IOT, 6012) 

6012 F0RHAT(/T1, 'DETERMINE QUANTITY qF FLUIDS LOADED INTO TANKS' ) 

WRITE (IOT, 600) 

WRITE (IOT, 661) TOTWTLOi, T0TWTLI2) 

661 F0RMAT(T1, '02-l.OADEO s ' , T I T, P8 , 1, T10, 'N2-L0ADED s' »T44,P8.l) 

WRITE (IOT, 6011) 

6011 FOKMAT(/n,ipETERNINE PRESSURE VESSEL, VACUUM JACKET, INSULATION, 

1 AND TOTAL FLUID TANK WEIGHTS' ) 

WRITE (IOT, 600) 

WRITE (IOT, 662) DITK ( I ) , D!TK(2) 

662 FoRMATfTl, 'DITK-02=',Tl5 f F8 t 2,Tl0,'0lTK.N2s'»T42,F8i2) 

WRITE (IOT, 661) TIWTM»I)» JI WT ( 2 , 1 ) 

661 FORMATtTI, 'TIWT-02=',TI5.F8.1 ,tio, 'TIWT-N2= i ,T42,F8. 1) 
write (107,664) DIVJ(I), 0!VJ(2) 

664 FORMAt(t1,'DIvJ-O2=i,tI5,F8.2,t10,'DIVJ-N2=',T42,F8.2) 

WRITE (107,665) ROFTU(I), R0FTU(2) 

665 FORMATtTI, IRHOFTU-02SI ,T!5,F8. 7. T10, »RHOFTU-N2s« ,T42,F8.T j 
WRITE (IOT, 666) WTPV(I), WTPV(2) 

666 FoRMAT(Tl, 'L'TPV-02 =' ,TI5.F8.2,T70» 'WTPV-H2 s',T42,F8.2) 

WRITE (IOT, 667) WTVJO, WTVJH 

667 FORMAT(T1, iWTVJ-02 = i , T 1 5 . F8 , 2, T10, • WTVJ-N2 si,T42,FB.2) 

WRITE (I0T f 668) WTTOT ( I ) f WTTOT (2) 

668 FqRMAT(T1, 'WTToT~o 2 = ' , T 1 5 , F8. 2 , HO, • WTTOT-N2 =* *T42*F8 .2 j 

:C' 

c A**********************************************************;***** 

c 

:C ■*** COMPUTE WEIGHT OF 02 HEAT EXCHANGER 

C 

jx = o 

JX s JX *\ 

IGAS = I 

IFIN =0 0 NO FINS ON ELECTRIC HEX 

c 

WOOTx ( Jx, IGAS) e wDTOMx 

tICODE ( JX*IGAS) S HXCODE ( JX , IGAS ) 

HEXC1T(JX,IGAS) s TEMP02 

HEXCOT(JX,IGAS) c TLSNOM(I) 

HEXC Ip ( JX , I GAS j = POP02 
HSOREQ(JX,IGAS) :c ODTOHX 
ELCPOWf JX, IGAS) :S HWTOMX 

,c< 

CALL HExCLCj I ,HEXCIT( J X , IGAS) ,HExCOT( J X , IGAS) ,HE X CIP(Jx, IGAS j, 

) HTRRLX(|),LINDIA(I ), WOOTX (JX, IGAS), 02RHO(IMAX), IFIN, 

2 WHXTOT(JX,IGAS),HXCOLP( JX, IGAS), UOAIJX, IGAS), DH(JX, IGAS), 

1 HLNGTH(JX,IGAS) ) 

C 

c 

C *** COMPUTE WEIGHT OF N2 HEAT EXCHANGER 
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******** 


618 



IGAS = 2 


61? 



IFTN e 0 • NO PINS ON ELECTRIC HEX 


640 

C 




64 1 



VDOTX(JXTIGAS) B VD7NHX 


642 



UCODE ( JXrf IGAS ) = HXCODEj JX» IGAS ) 


641 



HEXC 17 ( JX, IGAS j s TEMPN2 


644 



HEXCOT( JX, IGAS) :c TLSN0M(2) 


64S 



HEXC JP( JX| IGAS) s poPN2 


■646 



HSQSEQ(JX,!GAS) a DDTNMX 


647 



ELCPOWI JX, IGAS) a HWTNMX 


648 

C 




649 



CALL HEXELCI 1 8 » HEXC IT ( JX , IGAS ) »HEXCOT( JX, IGA$ ) ,HEXC Ip( JX * IGAS) » 


610 



1 H7RFLX( 1 ),L!Ktm<2j*WDOTXf JX»!GAS),02RH0(JMAX)»IFIN, 


61 1 


2 WHXTOT ( Jx, IGAS ), HXCDLP< JX, HAS ),UOA (JX, IGAS ),DH<JX, IGAS), 


612 



1 MLNGTH(JX,IGAS)) 


,•611 

c 




614 

c 


*•* OUTPUT THE HEAT EXCHANGER DATA ***■ 


611 

c 




616 



CALL OTPHXE 


617 

c 




■ 618 

c 




619 

c 




.■660 

c 


*** OUTPUT THE POWER SUMMARY BATA •*** 


66| 

c 




662 



CALL OPTPOW 


661 

c 




664 

c 

•A******************************************************************* 


661 

c 




■666 

c 


*** COMPUTE THE TANK ENERGY HJSTORy AND HEATER DUTY CYCLE *** 


667 

c 




■668 



T1M1MC e 1,0 8 PERIOD DEFINED BY GAS FLOW 


669 



PTANXI a P0PO2 


670 



PTANK2 a P0PN2 


,671 

c 




672 



LI a 0 


671 



DO 100 K 1 e liflDCYCLra 


674 



Lt « LI ♦ I 


.671 



TIMILI ) •= DCYCLEtKI j 


676 


too 

CONTINUE 


677 

c 




678 



L8 a 0 


679 



DO llo dl :S- 2»NOCYCL*8 


i 680 



1.2 s L2 ♦ 1 


681 



TNONOP(L2) :8 DCYCLE( J| ) 


682 


110 

CONTINUE 


,681 

c 


l 


684 



TIME 8 0,0 


681 



TKOW a. 0,0 


686 



TKNW a 0,0 


687 



OICUMO e 0,0 


688 



02CUMN 8 0.0 


■689 

€ 




690 



DO 110 Ka I.KCYCLE 


69 1 

c 




■692 



IF(TiM(K),EQ.O.O) 00 TO |60 


691 

c 




694 



NTP a TIMIK j * 6.0 


691 



WOTOIO a WDT02(Kj/6.0 
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******** 


******** ECLSS 


696 

69? 

698 

699 
'700 
'701 
'702 
701 
704 


■70«J 

706 

707 

708 

709 

710 

711 

712 
7 1 1 
7(4 


718 


•716 

■717 

718 

'719 

720 


•721 

722 

•721 


•729 

'728 

726 

•727 


■?28 


•729 

'710 

711 


712 

711 

714 

718 

716 


719 
•740 
74 | 
742 
741 
744 

748 
'746 
747 
'746 

749 
780 
'781 
'782 
'781 


W0TN10 e WDTN2(K)/6,0 
JP = PACE (0 ) 

C 

WRITE <I0T»7O0) 

700 FORHAT ( /T42 t ' *** COMPUTE TANK ENER6V HtSTORY AND HEATER DUTY CYCLE 
| **«'/) 

C 

WRITE ( I0T»70 1 ) K, TIM(K) 

701 F0RMAT(/TS, 'SYSTEM DUTY CYCLE NUMBER ' H4*?4R» *CYCLE IS 'fFCil.' H 
I OURS IN LENGTH') 

C 

GO TO 170 
C 

160 CONTINUE 

IF(THONOP(K),HE.O.Oj 00 TO 161 
JP = PAGE(O) 

WRITE (IOT, TOO) 

WRITE (IOT, 162) 

162 F0RMAT<TS,i ***** THERE IS AH ERROR In THE DUTY CYCLE DATA INPUT * 
|****i /T 8 1 • ** THE CALCULATION “ILL CONTINUE* OMITTING THE NON-OPE 
2RATING PERIOD *«' I 
GO TO MO 
C 

161 CONTINUE 

c 

JP = PAGE ( 0 j 
WRITE (IOT, 700 ) 

WRITE (I0T*70I) K* TNONOP(K) 

WRITE (IOT, |61) TNOMOP(K) 

i6i Format ( /T8 * • •*• the system in a non-demand outy cycle period For 
I ' »F6 ,2 * 1 HOURS. '/T8,' ** THE ANALYSIS FOR THIS PERIOD CONSIDERS ON 
2LY SPACECRAFT GAS LEAKAGE') 

C 

NTP = TNONOP(K) •* 6,0 

WDTOIO = 10.21 « GLKRAT/24. 01/6.0 

WDTNio = (0.79 « GLKRAT/24.0)/6.0 

c 

170 CONTINUE 
C 

WRITE (IOT, 702) K 

702 FORMAT ( /T1, ' TIME' ,71 I , ' GAS ' ,T20, ' PER-CENT' *T1V, ' DENSITY' »T44, 

I 'FLUID ' ,'Tsl* 'THETA ' ,'T61, ' PHI « , T7 I » ' Q/REOD ' ,'Tg | , ' 0*CUM ' * T9 1 , ' TANK * 
2,TI00, 'Q-HTR. ' iTIIO, ' HEATER '/T( I F L oW ' ,T20 , ' WITHDRAWN ' ,T44 , 'TEmP; 
T, T9 1, 'PRES, '»TI00, 'REOD, '*TI 10, ' TIME-ON' /T1, ' (MIN) ' ,T( I , ' (LBS) ', 
4,T20, ' (PERCENT) ' ,T11, ' ( LB/CF ) ' , T48 . « ( -R. j ' , T81, ' ( B/LB) ' ,T62 , 

8 ' < P-CF/B) ' ,T72. ' (BTU) ' ,T8I , ' (BTU) • *T9 1 , ' (PSI A) ', 7100,' (BTU) '* 

6 T(IO,'(MIN.)'/Ttl, '02/N2' ,722, '02/N2* • 

7 T14, ' 02/N2 • , T44 , ' 02/N2 ' , TS1 , ' 02 /N2 ' ,T62, ' 02/N2 ' , T72, • 02/N2 ' ,T8 1 * 

8 '0 2 /N2',T9l, , O 2 /N2',TI00,'O2 /NjI,TM 0, '0p/N2' ,TI?0, 'CYCLE -',!4/j 
C 

LPRES s 0 
IK s 0 
C 

DO 120 I S |,NTP 

c 

IF ( LPRES ,'EQ* I ) GO TO 112. 

IF(RPRTiM(K),0Ti0*0) 00 TO lit 
C 
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CCLS5 ******** 

754 


TIME e TIME ♦ 10. 0 

755 

c 


756 


TKOW e TKOW ♦ W0T010 

757 


TKOOP e TKOW 

.T18 


TKNW a 'TKNW ♦ VI0TN10 

759 


TKNOP e TKNW 

760 


CO TO 111 

•761 

c 


' 762 


1 1 1 LORES c LPRE5 ♦ 1 

•761 


RPT1ME = RPRTIM(K) * 60.0 

764 


116 CONTINUE 

'765 


TIME a TIME ♦ ( RPTIME/ 1 0^0 ) 

766 


IK = IK | 

767 


TKOW = TKOW ♦ ((WDT02(K) * RPRT|H(X) J/IO.O) 

768 . 


TKOOP := TKOW 

'•769 


TKMW a TKNW ( ( W0TN2 ( K ) * RPRTIMf X ) ) / | 0.0 ) 

770 


TKNOP = TKNW 

771 


WDTOIO a (W0T02IK) * P.PRTlM(K) j/10,0 

772 


W0TN10 a ( WDTN2 (K ) •» RPRTIM(K) ) / 1 0.0 

771 


IF(TK.EO.IO) TK 8 0 

774 


CO TO m 

■'775' 

o 


776 


1 12 TIME .a TIME ♦ 10.0 

777 

c 


,778 


TKOW a. TKOW ♦ WDOTONCKI/6.0 

779 


TKOOP a TKOW 

780 


TKNW a TKNW ♦ W00THN(K)/6.0 

78 1 


TKNOP a TKNW 

■782 


WDTOIO = WDOTOUIK1/6.0 

■701 


W0TN10 a WOOTNM ( K ) /6.0 

'•784 


GO TO 1 n 

•785 

c 


786 

c 


1 787 

:c 


■788 


111 CONTINUE 

789 

:e 


•790 


PCOXW s -TK00P/O2TOTU 

791 


PCN2W s TKNDP/H2TOTU 

■79a 

c- 


■791 

c 


, 794 


Cl * 144, 0/jRHOBEGU) * (1144.2546/11,9988)) 

795 


CH s I44,0/(RH08EC(2) * ( 1 544 .2546/2B.0 114) ) 

796 


Cl * 1.0— ((Cl * TKFPRSJH)/(IFO * TKFTEM(ljj) 

•79? 


C4 a 1,0- (<C2 ■* TKFPRS(2))/(ZFN * TKFTEM( 2)1) 

798 

c 


799 

c 


•eoo 


ORHOta RHOBEGdl * (1,0 - (PCOxw * Oj> 

801 


NRHO a RHOBEC-(2) * (1.0 - (PCNaW * C4)) 

1 -802 

c 

1 

. .601 


CALL FINTAB (MTBIDOi j 

804 


XTAB(I) ,e PTANKI 

805 


XTAB(2) ra OP.HO 

806 


OXTEM a MIPE(2.XTAB) 

■ 807' 

c 


, 808 


CALL FINTAB (HTRID(4I ) ) 

809 


XTAB ( | ) a PTANK2 

810 


XT AS (2) ,8 NRHO 

eii 


N2TEM a M1PE(2,XTAB) 
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612 

C 



eir 

C 



8 tu 


CALL PHTHON ( OxTEM , ORHO ♦ 1 , PH I » THETA ) 


e i s 


DOOM! a THETA 


816 


OPDUI a PHI 


817 

c 



818 

c 



819 


CAUL PHTHON ( N2TEM»NRH0» 1 §|PHI »THE7A) 


820 


0ODH2 s THETA 


621 


0P0U2 s PHI 


822 

c 



821 

•e 



824 


ODTTKI VOTOIO * DOOM 1 


825 


QDTTK2 -a HDTN10 ■* 0GDH2 


626 


QICUHO a QICUMO ♦ OOTTKI 


827 


Q2CUMN 3 Q2CUMH ♦ Q0TTK2 


828 

c 



829 


CALL BETAB(OXTEM t ORHO,!,BETAOJ 


810 


CALL BETAS (N2TEM*NRH0f 1 StBETAN) 


811 

c 



812 


CALL CSUBPIOXTEM*PTANKI,),CPO) 


811 


CALL CSUBP(N2TEH,PTANK2i I8.CPHJ 


814 

c 


815 

c 

OELPI a TIHINC « ( (OPDUI >vOLTX( l>) * ( (-CPO/BETAOjRWDTOlO j j 
DELP2 = TIHIMC * U0PDU2/V0LTK(2)I ■* ( (-CPN/BETAN J*WDTN10) ) 


816 

817 



818 

c 


819 


PTANK2 n PTANX2 ♦ 0ELP2 


840 


PTANK! E PTANK I ♦ OELPI 


841 

c 



842 


IF(HTRFLX(2i.LE.0.0) CO TO 122 


841 

c 



844 


OMTR| a PI * HTROIAI 1 ) * HTRLNCI 1 1 HTRFLX(2)/60,0 • PER HIN. 

845 


0MTR2 B PI * HTR0IA(2) *■ HTRLNG(2) * HTRFLX(2)/60.0 


846 


CO TO 1 21 


847 

C 



848 

122 

CONTINUE 


849 

C 

OHTR| s (PI * HTRDIAdj *• HTRLNCI 1 1 * HTRRAlj/60,0 B PER 

MINI 

850 


851 


0HTR2 s (PI * HTRDIA(2) *■ HTRLNC ( 2 ) * HTRRA2I/60.0 8 PER 

MIN. 

852 

C 



851 

121 CONTINUE 


854 

C 



855 


ifiptanki.le.pseti) go to no 


856 


GO TO 115 


857 

no 

GELCI s 0 | CUHO 


858 


HTROfl | :s OELCI/QHTRl 


859 

• 15 

IF(PTAUK2.LE.PSET2) CO TO 140 


860 


GO TO 118 


861 

140 

0ELC2 = Q2CUHN 


662 


HTR0N2 = QELC2/QHTR2 


661 

c 



864 

lie 

CONTINUE 


865 

c 

IF ( PAGE (2 ) j GO TO 227 


866 



867 


GO TO 228 


868 

227 

WRITE (IOT,702j K 


869 


JP s PAGE (6 ) 
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870 

871 

872 
877 
•874 
87S 
i876 

877 

878 

879 

880 
681 
,882 
iear 

884 

ees 

886 

887 

888 

889 

890 
I89| 
892 
897 

894 

895 

896 

897 

898 

899 

900 

901 

902 
907' 

904 

905 
'906 
■907 

906 

909 

910 

911 

912 
917 


ECLSS ********- 

228 CONTINUE 
C 

WRITE (lOTtTOl) TIMEfh'DTOTO rPCOXUf ORHOf OXTEMfOOOMI tOPOUl *80TTKi » 

1 0|CtlMO,PTANKI»SELCl*HTRONI*WDTN70 rPCN2W*NRH0*N2TEM»DQ0M2* 

2 DPDU2*Q0TTK2*fl2CUMN»PTAMK2,GELC2*HTR0N2 

707 FORMATfTI tr9,2*T! |fE6,7*T2!*R6.S.772*F8,S*T47*F6i2.TS2.F6.2fT6l. 

1 F6.2,T7I »F6. I ♦T80*F7.0«T90»F7.2#T99*F7.0*TI09iF7,2/TI I *F6.7«T2I * 

2 F6.S*772»F8.S»T47,F6.2iTS2*F6.2*T6l*F6.2tT7l fF6.l*T80*F7.0*T90. 

7 F7.2fT99,F7.0*T|09,F7.2j 

C 

IF(PTAMKI .tE.PSETI j HTRONI = 0.0 
IF(PTANKI .LE.PSETI ) OELCI s 0.0 
IF(PrANKl.LE.PSETI) GICUNO = 0.0 
IF<PTA f 'K| .LE.PSETI ) PTANK | = P0P02 
lF(PTAMi<2.LE.PSET 2) HTR0M2 = 0.0 
1F(PTANK2,LE.PSET2) GELC2 = 0.0 
!F(PTANK2.LE.PSET2) G2CUUN = 0.0 
!F(PTAMK2.LE.PSET2) PTANK2 = P0PN2 

c 

IF ( IK.CT.O) 00 TO I |6 
C 

120 CONTINUE 
C 

110 CONTINUE 
C 

C 'A******************************************************************** 

c 

c 

C *********** ************ *********0****** ****************************** 

c 

c '*** 00 THE ECLSS :C0NFICURAT10N ANALYSIS ***• 

C 

CALL LSSCNP 
C 

c ********************************************************************* 

c 

WRITE !10T. 6099) 

6099 F0RMAT(/////T2S. 12( •****♦♦* j/T2S» I2( •*•****< j //T8S* ****** THE SUP 
IERCRITICAL EC-LSS CALCULATIONS HAVE BEEN COMPLETED *****«//T2S, 

2 1 2 ( l ****** i )/T2Stl2t' ******* )/////) 

RETURN 

C 

END 
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SUBR0UTINE ENGINE 


*P 

03 

CXI 


1 

c 

2 

c 

1 

e 

4 

c 

5 

c 

6 

c 

7 

c 

8 

c 

9 

c 

10 


n 

c 

12 


11 


14 

c 

15 


16 


IT- 


18 


19 


20 

c 

21 

c 

22 

c 

21 


24 


25 

c 

26 


2T 

c 

28 


29 


10 


11 


12 


11 

c 

14 

c 

15 

c 

16 


IT 


18 


19 


40 

c 

41 


42 

c 

4! 


44 

c 

45 

c 

46 

:c 

47 


48 


49 


50 


51 

c 

52 

c 

51 

:c 

54 


55 


56 


5T 



.•*••* * *■.*•■* • * .** * ■* 

ROUTJNE NAME - ENGINE WEJCT AMD TOTAL *■ 

!#• IMPULSE PROPELLANT WEIGHT' '* 

>* CALCULATION ROUTINE 

•P ROUTINE LANS -FORTRAN V VNJVAC 1 109 EXEC !*’ 
•PROGRAMMER - fi. BOLLINGER 1941 IDE 26911 * 

•■* DATE CODED . 1/9/70 . ■* 

I*-* * *..* *■* ■*••*• * ** ■*■!*••* *"!* *'■* :*•.:*. 

SUBROUTINE ENGINE 

LOGICAL DIAG 
LOGICAL PAGE* JP 

INCLUDE CCNTRL 
INCLUDE CDCYCL 
INCLUDE CENG 
INCLUDE CIOUNT 
INCLUDE TABLOK 

■•*«*** CALCULATE THE ENGINE HEIGHT 

IF (OlAG(0*6HEMGINEjl WRITE (IOT.6O00) NENG^GITEMP, THRUST, PSUBC, 
I EXPRAT 

IFISVSNUH.EQ.S) GO TO' 5 

CALL FINTAB (NTBlD(l)j 

XTABfl) a G1TEHP 

XTAB<2) a PSUBC 

XTAB(I) a THRUST 

ENGWT e MIPE(lfXTAB) * NENO 

***** CALCULATE THE SPECIFIC IMPULSE 

CALL FINTAB (NTBID(2) j 
XTAB(I) = GITEflP 
XTAB(H) s MIXRAT 
ISP s MIPE(2,XTAB) 

GO TO IS 

CONTINUE 

•••••CALCULATE THE OMS ENGINE HEIGHT 

CALL FINTAB (NTS ID ( 10 j ) 

XTA8 ( I ) = PSUBC 

XTAB<2) « THRUST 

EMGHT = MIPE(2,XTAB) • NENG 

***** CALCULATE OMS SPECIFIC IMPULSE 

CALL FINTAB (NTBIDUD) 

XTAB( I ) = PSUBC 
XTAB(2) = MJXRAT 
ISP S MIPE(2,XTA0) 
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ENGINE 


.•********• 


'98 
99 
60 
61 
62 
61 
64 
69 
66 
67 
1 68 
69 
' 70 
1 71 
72 
71 
74 
79 
l 76 

77 

78 
, 79 
, BO 

8| 

, 82 
81 
84 
89 
86 

87 

88 

89 

90 

91 

92 
91 
94 
99 

96 

97 

98 

99 


'C 

|9 CONTINUE 
C 

c 

C '•**** CALCULATE THE FLOW RATE 

:c ***** calculate the total impulse propellant weight 

c 

KNT :n 0 
T1PWT = 0.0 
HOOT s 0.0 

c 

DO 10 1 1 '= |»NDCVCL,2 
KNT = KNT t I 
IF(DCYCLE(lm .10* 

WDOTI = lAnS<NEOP(KNT))*THRUST/(PST(KNT>*ISPj 
TIP«T = TIPWT* KDOTl*DCVCLE(irt 
WDOTJ(KNT » 2 j s WDOT|/(MIXRAT ♦ t.O) 

W00TJ(KNT,l) s WOOTI - WDOTJ(KNT.2) 

IF(NEOP(KNT),LT.O) GO TO |0 
WDOT 5 AMAXI (WDOTiWDOTl ) 

10 CONTINUE 

WDOTJ (2) s WDOT / (MIXRAT + 1,0) 

WDOTIII) •= WDOT - WDOTI (2) 

C 

IF <DIAGU,6MENGINE)) WRITE HOT, 6000) KNT, ISP, WDOT, TIPWT,ENGWT. 

I WDOTI , ( ( WDOTJJ I , J) , lei ,KNT j ♦ Jal ,2) 

C 

JP 8 PAGE(O) 

C 

WRITE (6,6)00) 

WRITE (6,6101) ISP, ENGWT)WDOTI, WOOTI{|), WDOTI (2I.TIPWT 
RETURN 

6000 FORMAT !'+'|4X,I9,IOX,6E)9.6/(8E!9.6)) 

6100 FORMAT ( //T18, ' *** INITIATE PROGRAM AMD CHARACTERIZE CONSUMER PARAN 
IETERS ***'///> 

6101 FORMAT(T60, '* COMPUTED ENGINE PARAMETERS *'//T49, 'ENGINE ISP', 

1 TB0,EI9.8/T49, 'ENGINE WEIGHT - (LPS) ' ,T80,EI9.8/T49, 'TOTAL ENGINE 

2 FLOW - (L0/SEC)',T80,Els.8/T45,'ONE ENGINE OXID.FLOW RATE-(LB/SEC 
1) ' ,T80,EI9.8/T49, 'ONF ENGINE FUEL FLOW PATE-(LB/SECi ' • T80.E I 9.8/T4 
49, 'THRUST IMPULSE PROPELLANT WGT. ' ,T80»EI9.8) 

C 

END 
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FUNCTI0N FINDR 


1 

2 
1 
4 
1 
6 
7 
6 


FUNCTION FINDR(N) 

DIMENSION <3(18* . . 

OATA 0 . /48. 11*766. 8*40. 67*766. 8*42. 01. 96.19*28^62* 

1 96. 19*28. 62*99.81 *40. 67* 90.77* 1 6. 78*17.0* 1 1.90*17.90*186.7* 

2 99 . 161 / 

FINORBG(N) 

RETURN 

END 
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FUNCTI0N FING1 


( 


FUNCTION -FtNSHTtDi 

2 


C0MM0N/CE0S/GI41 } 

r 


COMMON /SCSI!/ XI40) 

4 

c 


S 

■C* • • « 

ROUTINE TO CALCULATE INTEGRAL! (R/D-t /D**2(DP/DT) j DD$ 

6 

c 


7 

c • • • * 

WRITTEN 7/18/71 A MYERS 

6 

:c 


9 


02=0*0 

10 


01=02*0 

II 


04=01*0 

12 


DS = 04*D 

IV 


P6=0S*D 

14 


07=06*0 

IS 


08=07*0 

16 


09=08*0 

IT 


010=09*0 

18 


TS= SORT f7) 

19 


T2=T*T 

20 


T1 = T2*T 

21 


TM=T7*T 

22 


T'! = T4«T 

21 


GM=G (41) 

24 


F= EXP ( GM*D2 j 

2S 


GI=F/(2.00*GM) 

26 


G2=(f*O2-2.CO«GI)/I2v0O*GM) 

27 


G1=(F*04-4,00*G2)/(2,00*GM) 

28 


G4=|F*P6-6.00*G1)/(2.00*GM) 

29 


GS=(F*0b-8.00*G4)/(2,00*GM) 

10 


G6=<F*DIO.IO.OO*GS)/(2.CO*GM) 

11 


XI l)=-D 

12 


XI 2)=-D/(2.00*TS) 

n 


XI 1)=0,0 

14 


XI 4 ) =+o/T2 

IS 


X( S)=2.00*0/T1 

16 


X| 6 ) s-02/2 • 00 

17 


XI 7)=0.0 

18 


XI 8)=02/|2, 00*72) 

19 


XI 9 ) = P2/T1 

40 


XI I0)=-P1/1,00 

4 I 


XII 1 ) = 0,0 

42 


XI I2)=01/(1, 00*T2) 

41 


x<n>=o.o 

44 


XI I4)=0S/(S, 00*72) 

4S 


XHS)= 2,00*OS/(S.0O*T1) 

46 


X(I6)=06/|6,00*T2) 

47 


XI 171=07/(7.00*72) 

48 


XI I8)=2. 00*07/(7. 00*T1) 

49 


XI I9)=08/(4.00*T1) 

SO 


X(20)=2.00*GI/T1 

SI 


X 1 2 1 ) = 1« 00»G 1 /T4 

S2 


X(22)=2,00*G2/T1 

SI 


X(2D=4,00*G2/7S 

S4 


X(24)=2.00*G1/T1 

ss 


X(2S)=1,C0»G1/T4 

S6 


X(26)=2.00*G4/T1 

S7 


X(27)a4.00*GM/TS 


A 
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FING1 «*«*«**« 


58 

X(28)e2,00*G5/T1 

59 

X( 29)s1;00*G5/T4 

60 

Xnojs2,00*G6/T1 

61 

XIII )=1.00*G6/T4 

62 

X(12)=4,00*G6/T5 

61 

F1NGI=0.00 

64 

DO 1 1=1,12 

65 

1 FIMG|=FINGUG<I> 

66 

RETURN 

67 

end 
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FUNCTI0N FING2 


2 

1 

4 

5 

I* 

■7 

'•8 

9 

10 

11 
n 
n 

14 

is 

16 

17 

18 

19 

20 
21 
22 
29 

24 

25 

26 
27 
,28 
,29 
10 
11 

12 
11 

14 

15 

16 

17 

18 
19 
40 
1 4 | 

42 

47' 

44 

45 

46 

47 

48 

49 

50 

51 


54 

55 

56 

57 


FUNCTION 'FIN62{TtD> 

C0MM0N/CE0S/G(4I ) 

COMMON /SCRfl/ X 1 40 ) 

C.... ROUTINE TO CALCULATE INTEGRAL! <P/9**8-F7/dI 09) 

C 

02 = 0*0 

01 = 02*0 

04=07*0 

DS=D4*D 

06=0S*0 

07=06*0 

08=07*0 

09=08*0 

010=09*0 

ts= sort ct) 

T2=T*T 
T7=T2*T 
T4=T 7*T 

TS=tr*t 

GM=G(l»| ) 

F= EXP ( GM*02 j 
GI = F/(2.00*Gf1) 

G2=(F*n2-2.00*fll)/(2.00*GM) 

G7=(F*O4-4,00«G2)/<2.00*Gf1) 

G4=(F*P6-6.00*G1)/<2.00*GH) 

GSs(F*P8-8.00*G4)/(2,00*GM) 

G6=(F*OIO-l0.O0*GS)/(2.00*GM) 

X( I )=0*T 
X( 2)=D*TS 
XI 1)=D 
X( 4)=o/t 
X( S)=D/T2 
X( 6)=02*T/2.00 
X( 7)=02/2.00 
X< 8 >=02/ ( 2 • 00*T) 

- X< 9 )=0?/ (2,00*72) 

X( I0)=P7*T/1,00 
X( I I )=P7/1.00 
X(I2)=P1/(1,00*T) 

X( H)=04/4.00 
x( m)=os/<s,oo*T) 

X(ISJ=OS/(S,O0*T2) 

X( 161=06/(6, 00*T) 

X( I7)=07/(7.P0*T) 

X( IB )=PT/ (7, 00*T2) 

X( I9)=08/(8,00*T2) 

X(20)=GI/T2 
X(2I )=G1/T1 
X(22)=G2/T2 
X ( 21 ) =G2/T4 
X(24)=G7/T2 
X(2S)=61/T1 
X<26 )=G4/T2 
X(27)=G4/T4 
X(28)=GS/T2 
X (29 ) sGS/TI 
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SB 

59 

60 
61 
62 
63 
6M 
65 


FXNG2 ******** 

X<30)sG6/T2 
X< 3 1 }sG6/T3 
X(32>=G6/T5 
FlNG2=0.00 
00 I J=) f 32 

I FING2=FING2*6(Ir«X<I) 
RETURN 
END 
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FUNCTI0N FING3 


W 


4^ 

01 


1 

2 
1 

, M 

5 

6 

r 

'• A 

9 

10 

I I 
12 

II 

m 
is 
. 16 
IT 
: IB 

19 

20 
i 2| 

22 

21 

24 

25 
! 26 

27 

28 
29 
10 

l II 
12 
11 

;■» 

1 18 

19 
f 40 

41 

42 
Ml 
44 
MS 
M6 

47 

48 

49 

50 

51 

52 
Si 
S4 

ss 

56 

57 


C 

C||M 

c 


FUNCTION F!NG1(T.0j 
C0MM0N/CE05/G (4 1 ) 
COMMON /SCRH/ X(40 j 


ROUTINE TO CALCULATE INTEGRAL! |T/0**2)*f 02P/0T2) OD> 


02 = 0*0 
01 = 02*0 
04=01*0 
0S=O4*O 
D6=0S*0 
07=06*0 
08=07*0 
D9=08*D 
DI0=D9*0 
TS= SORTCT) 
T2=T*T 
T1=t2*t 
TM=T1»T 
TS=T4*T 


GM=G(4I ) 

F= EXP(GM*02) 

GI=F/(2.00«GM) 

G2=IF«02-2,00»GI j/(2.6o*flM) 

G1=(F*O4-4.00*G2)/(2.C0*GM) 

G4=(F*O6-6.00*G1)/<2.00*GM> 

GS=(F*P8-8.0P*G4)/(2.oO*GM) 

G6=<f*OI0-I0.OO*GS)/(2.00*GM) 


x< 

X( 

X( 

X( 

X( 

X( 

X( 

X( 

X< 

Xt 10 
X< I I 
X( 12 

xdl 

X ( 14 

X(IS 
xt 16 
X(IT 
X< I 8 

X I I 9 
X( 20 
X ( 2 1 
X ( 22 
X 1 2 1 
X(2M 
X(2S 
X (26 
X(2T 
X 1 28 
X(29 


= 0.0 

=-D/(4.00*TS) 

= 0.0 

=2.00*0/T2 

=6.00*P/T1 

= 0.000 

= 0.0 

=P2/T2 

=1,00*D2/T1 

= 0.000 

= ( 2 .00*01 J / t li00*T2 J 

= 0.0 

=<2,00*OS)/(S,00*T2 
=<6,00*OS)/(S,00»Tlj 
=06/(1, P0*T2) 

=<2, 00*071/(7, 00*72 | 

=( 6.00*07) /(7f00*Tlj 

=t1,00*De)/|4.00*Tl) 

=6,000*GI/T1 

= 1 2. 00*G I /T4 

=6 , 000*G2/T1 

=20.00*G2/TS 

=6,000*G1/T1 

=I2.00*61/T4 

=6.000*GM/T1 

=20.00*GM/TS 

=6.000*GS/T1 

=I2.00*GS/T4 
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f INfil ******** 


SB 

xnojs6,ooo*G6/ri 

S9 

XO! )sl2,00*G6/T4 

60 

X(12)s20»00*G6/T*5 

6t 

FINQIsO.OO 

62 

(50 1 Is 1 1 12 

6V 

i fihgi2fingi+g(D*: 

64 

return 

6S 

END 
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SUBR0UTINE FINTAB 


1 

2 
1 
4 
B 
6 
'?■ 
8 
9 

10 

It 

12 

11 

14 

IB 

16 

IT 

IB 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 
14 
IB 
16 

17 

18 
19 

40 

41 
M2 
41 
44 
MB 
M6 
47 
MB 
M9 
BO 
9\ 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


X- 


X' 


:♦'* *<•>**** i.6' 

ROUTINE NAME - FIND AND INPUT THE MASTER *' 

’* TABLE OF A SET OP TABLES •♦ 

<* ROUTINE LANG - FORTRAN V UNIVAC 1108 EXEC 2*' 
■♦PROGRAMMER - R. BOLLINGER 1941 102 26911 
.♦ OATE CODED . 1/9/70 


SUBROUTINE F1NTA8IHTN j 

■♦**♦* EXPLANATION of the CALLING SEQUENCE 

* MTN - HASTER TABLE NUMBER. THE INDEX OF THE ARRAY TLA 
•* (SEE PDP CTAB) WHIfH POINTS TO THE PROPER DRUM 

***** LOCATION FOR THE TABLE. 

LOGICAL DUG 

INCLUDE CIOUNT 
INCLUDE CTAB 
INCLUDE CTABA 

IF (DIAG(0,6HFINTAB)) WRITE (I0T.68I0) HTN*TLA(MTN} 

JTABID := MTN 

IF (TLA(MTN) .GT, 0) GO TO B 
WRITE (IOT.6020) MTN ' 

:CALL EXIT 
S CONTINUE 

I0X I .= TLA (MTN j . 

NO' = ITABLEIIOXI ) 

IF(ND.LE,2I GO TO 20 

NDM2 :s ND - 2 
DO 10 Il=| »UDM2 
IOXI = IDXI ♦ I 
NP r ITABLE (IDXI) 

ITAB ( | « 1 1 )— S NP 
DO 10 I2=I,NP 
IDXI = IDXI .♦ I 
TAB(I2*|fII) = TABLE! IDXj ) 

10 CONTINUE 

20 IDXI s IDXI ♦ I ...... 

IF (DIAG(tr6HFINTAB)» WRITE (10T*60I0> ND* t (TAB( I * J) « Jal *B) *lal *6) 
RETURN 


’6010 FORMAT ( •♦ i |4X* I7*BI !B/( 10XBEIB.6) t 

6020 FORMAT CO*// 20X «**♦ LOAD TABLE NO, »' 14* » BEFORE YOU TRY’TO USE 1 
I IT.. *♦**) 

END 
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FUNCTI0N FL0DEQ 


******** 




a 

r 

4 

5 

6 

7 

8 
7 
10 

11 

12 
II 

m 

is 

16 

IT 

18 

19 

20 
21 
22 
21 
■24 

25 

26 


;c 
c 
c 
c 
c 
c 

C- 

c 
c 
c 

FUNCTION FLODEO(M,G) 

C 

C ***** EXPLANATION of the calling sequence 

c * 

C * H - MACH NUMBER 

c 

C G - SPECIFIC HEAT AT CONSTANT PRESSURE/ 

C ***** SPECIFIC HEAT AT CONSTANT VOLUME 

C 

REAL MtMSQ 
C 

MSQ :S M**2 

FLOOEQ = (1,0 . MSQj/(G*MSQj ♦ (G ♦ l,0i*Al,.0G((G ♦ I.O}*MSQ/ 
I <2.0 ♦ (G - I.Oj * MSQ)l/(2.0 * G) 

RETURN 

END 


* ROUTINE NAME - FANO LINE - ONE DIMENSIONAL * 

* COMPRESSIBLE-FLOW FUNCTION * 

* FOR ADIABATIC FLOW AT . . . ■* 

* CONSTANT AREA WITH FRICTION * 

* ROUTINE LANG - FORTRAN V IJNIVAC t|OS EXEC 2* 

* PROGRAMMER - R. BOLLINGER 1941 102 26911 * 

'* DATE COOED - 1/10/70 * 
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SU 8 R 0 UTINE FL 0 RAT 


i 


I 


i 4 

' i 

; ft 
T 

a 

9 

10 

.It 

12 

II 

m 

is 

i 16 

, 17 
IB 
i 19 
•20 
21 
22 
21 

24 

25 

26 

27 

28 
,:29 

10 

71 

72 
77 
74 
■75 

76 

77 
18 
79 

40 
4| 
42 

41 

44 

45 

46 

47 

48 


51 

52 
51 

54 

55 

56 

57 


.C * •* * -* •*:* *■* ********** ■*■ * :* * * ■*■ 

C ■* ROUTINE NAME . TOTAL FLOW RATE FOR 82 AND •* 

C '* 02 COMPUTATION, >*■ 

C ROUTINE LANS - FORTRAN V UNIVAC 1108 EXEC 2* 

C * PROGRAMMER - J.A, HCKAY 19-41 20| X45IT8 * 

C * DATE COOED - FEBRUARY 1971 (REVISED) * 

C .* * *.:*:*.!* * * * * *■**:* * *■*■■* *■..* * * * * 

c 

SUBROUTINE FLORAT 
C 

LOGICAL 01 AG 
REAL ICIN,ICOUT 
REAL KI,K2,K1,K4,K5,K6,Kr,K8 
C 

INCLUDE CCUTRL 
INCLUDE CENG 
INCLUDE XFLRAT 
INCLUDE CHEX 
INCLUDE CPUIIP 
INCLUDE CTANK 
INCLUDE CTURBN 
INCLUDE CIOUNT 

DIMENSION EG 1 1( 2) ,EQ24(2)*EQ57 ( 2) »E0S8 ( 2) 

:c 

EQUIVALENCE ( EQl 1*KI J i ( EG24.K2 J * I E9| 1(2) ,X1) , (E024f2 j *K4{ 

I l(EOS7»K5)»<E068,K6).(EO57{2),KT),(EQ68(2),K8> 

:c 

IF (DIAG(0,6HFLORAT) (WRITE! I OT* 6020} WDOTI, TOTEMP, TITEMP, TEFF, 

I EPOELP, TMRATO 

IF (DIAGIO, 6HFL0RAT) ) WRITE (107,6020) HEXHOTI I i I ) .HEXHOTi I ,2) , 

I HEXCoT(|,IJ, HEXC0T(I,2), HXMRAT (1,1), HXMrAT( I , 2) j HEXHIP( |,|) 
2, HEXHIP(|,2) 

:o 

:c 

II S I 
ISFLG a I 

IF (SYSNUM ,E0, 2) II s 2 

IF (SYSNUM ,E0. 2 .AND. SCRIT ,E0. 2) ISFLG = 2: 

DO 20 1 1st ,2 
GO TO ( 14, 12), ISFuG 
12 TERMI a 0. 

TEPM2 s 0, 

IF (HEXHtP (2, I | ) ,EQ, O.j GO TO 18 
14 CONTINUE 

C TERM FOR. HEAT EXCHANGER NO, I 

AVGTH = (KEXHITdl.II) f HEXHOT ( 1 1 , 1 1 ) ) / 2.0 
CALL CSUDP1 (AVGTH, HXMRATdl, II ),CPHEX) 

DIH = CPHEX * (HEXHIT ( 1 1, 1 I ) - HEXHOTI II, I I j ) 

CALL ENTHOH (HEXCIP(I1,I|i,HEXCIT(I1,II),II,ieiN) 

CALL ENTHOH (HEXCOP ( 1 1, 1 1 ) .UEXCOT ( 1 1, 1 1 ) , 1 1 , ICOUT) 

DIC = tCOUT - ICIN 

TERMI a OK / ( 0IH*( I . O+HXMRAT ( 1 1 , 1 1 I j ) 

GO TO (16, 185, ISFLG 
16 CONTINUE 

c 


TERN FOR PUMP TURBINE 
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FLORAT 


•58 

59 

60 
6 | 
62 
61 
64 
6 <5 
66 

67 

68 

69 
TO 

71 

72 
71 

74 

75 

76 

77 

70 
79 
00 
81 
82 
81 

84 

85 

86 


AVGTT e tTITEMPHI) ♦ TOTEMP(ItJ) 7 2.0 
CALL :CSU8p I <AVGTTVTMRATO(in*CPEP) , 

OELHTP b CPEP '*' fTITEUPtfH - TOTEHPdl)) 

CALL RHOLIO ( S I TEMP ( 1 1 , | ) , 1 1 « RHOLG ) 

TERM 2 s 0.leS*EP0ELP(II) / (RHOLQ*PEFF ( 1 1 >BT?FFT 1 1 yPDELHTP 

i *n.o*TMRATo(inn 

10 CONTINUE 

c 

C . CALCULATE THE K-TERMS 

EO 1 1 ( 1 1 ) :e TERMI * HXMRAT'i 1 1 » X 1 > 

E024 (II) b TERM I 
E05t(II) e TERM2 B TMRATOdl j 
E068(ll ) a TERM2 
20 CONTINUE 

:c- 

OEHMHX S K1 ♦ K4 ♦ K2*K1 - KI*K4 • 1.0 
DENMTB = KS K8 ♦ K6*KT - KS*K8 - 1.0 

.C:. 

WFLOI b (WDOTI *K4 - WPOTI « WDOTI (2)*K1) / OENMHX 

WFL04 s (WDOTI (2 j*KI •» WDOTI <2 ) • WDOTI *K2) / OENMHX 

C 

WFLOT b (WDOTI *K8 - WDOTI • WDOTI l2>*W?j / DENHTB 

WFLO0 B (WDOTI (2 j*KS • WDOTI (2 ) - WDOTI *K0) / DENHTB 

C 

WFLOI a KIP WFLOI 
WFL02 a N1 ■* WFL04 
WFLOI 8 K2 P WFLOI 
WFL04 B K4 * WFL04 


87 

88 

89 

90 
’I 


WFLOI a KS * WFLOT' 
WFL06 a K7 * WFL08 
WFLOT B K6 '* WFLOT 
WFLOB E K0 ;P WFL08 


92 

C 

set UP CONDITIONING FLOW 

91 


WDHXTO b WFLOI ♦ WFL02 

94 


WDHXTF B WFLOI ♦ WF.L04 

9S 

c 


96 


WOTPTO s WF.LOS ♦ WFL06 

9T 


WOTPTF s WFLOT ♦ WFL08 

90 

c 


99 


WDOTT(I) s WOOTIdj ♦ WDHXTO ♦ WOTPTO 

100 


W00TT(2) S WDOTI (2) ♦ WDHXTF ♦ WOTPTF 

101 

c 

102 


GO TO (10,12)# ISFLG 


101 


OUTPUT. TURBINE G,G, FLOWRATES 


104 10 CALL OTPFLT 

I OS GO TO 14 

106 :C OUTPUT HEAT EXCHANGER 0,G, FLOWRATES 

IOT 12 CALL OTPFLX 

108 C 

109 14 CONTINUE 

110 C 

111 IF (DIAG(lt6HFL0RATj) WRITE (IOT, 0020) Kl •K2,K1.K4,KS>K0,K7,K8, 

112 I OENMHX, DENHTB 

111 C 

I 14 

I IS C 


RETURN 
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RLORAT •****♦«** 

6030 FORMAT (Ui|RX»6E|'5.6/(|<SX6eiS.6>) 

c 

END 
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SUBR0UTINE RJELCL 


w 

I 


Ol 


to 


1 

2 
9 
4 
9 
6 
T 
8 
9 

10 

II 

ia 

19 

m 

15 

16 
IT 
18 

19 

20 
21 
22 
29 

24 

25 

26 

27 

28 
29 

90 

91 

92 
99 

94 

95 

96 
9T 

98 

99 

40 

41 

42 
49 

44 

45 

46 

47 

48 

49 

90 

9 1 

92 
99 

94 

95 

96 

97 


SUBROUTINE FUELCL 
C 

LOGICAL JP.PAGE 
C 

include caccum 

INCLUDE CAP1I 
INCLUDE CDCYCL 

include cents 
INCLUDE CFUEL 
INCLUDE CHEX 
INCLUDE CHSORC 

include ciount 
include cmatrl 

INCLUDE CONST 
INCLUDE CPUMP 
INCLUDE CTANK 
INCLUDE TABLOK 

C 

DIMENSION T1MII2) 

DIMENSION WP0TX(MHX*2 j 
EQUIVALENCE (WDOTCFfWDOTXj 

C 

c 

JP e PAGE(O) 

c 

WRITE (IOTf6000l ... 

6000 FORMAT(//n 8 .'**« INITIATE PROGRAM AND CHARACTERI 2 E FUEL CELL PARA 
I METERS *** • ) 

WRITE I lOT »600| J 

6001 FORMAT ( //T2«PARAMETER' f TI4.»CVCLE-l»»T26»»CVCLE-?*, 

1 T7B, <CYCLE«9'»TS0f 'CYCLE-4 '♦ T62. 'CYCLE-S'YTTM. »CYCLE-6*fT86. 

2 'CYCLE-7 '.T98* 'CYCLE-8 ' ,'TI 10. 'CYCLE-9 • *TI 21 » 'CYCLE-10'/) 

C 

c ..... 

c A******************************************************************** 

c 

C BEGIN COMPUTATIONS FOR SUPERCRITICAL STORAGE 
.C 

C ****•••*•***«*»****•*****•**•****•••*•*••*•*••*•***•****••**«****•**• 

C 

C *** SET SELECTED INPUT PARAMETERS FOR CONVENIENCE 

C 

PCOFC x SOPRES(I.I) 

PCHFC a SOPRES 1 2* I > 

C 

c *** COMPUTE TOTAL ELECTRICAL POWER SUPPLIED FOR MISSION. 

C 

POWTOT = 0.0 
I x 0 

DO 5 II x | . NDCYCL.2 
I = I ♦ | 

POWTOT a POWTOT ♦ PKW|I) * OCYCLEIIO * NEOP(I) 0 POWER IN XW-HRS 
9 CONTjNUE 
c 

C *** COMPUTE QUANTITY OF REACTANTS CONSUMMEO FOR POWER 

C '*«* COMPUTE FLOWRATES OF EACH REACTANT FOR EACH INTERVAL 
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FUELCL ******** 


SI 

59 

60 
61 
62 
61 

64 

65 

66 
67 
66 

69 

70 

71 
i72 
71 
1 74 
,75 

76 

77 

78 

79 

80 
61 

I 82 
81 
64 

i 65 
86 
87 
, 86 
69 
, 80 
91 
82 
81 
94 
85 

96 

97 

98 

99 
100 
101 
102 
)01 

104 

105 

106 
.107 

(08 

109 

110 

111 

112 
111 

'114 

115 


C 

WRFORP s O.o 
I S 0 

00 10 II :S I.NDCYCL.2 

1 e I ♦ I 

WRPII) a PKWdi * OCYCtE(JI) * SRCFC * NEOP(I) 

WRFORP a WRFORP MRP(|) 

C 

10 CONTINUE 
C 

C *** OXYGEN CONSUMPTION 

C 

Cl S URFC/(NRFC ♦ 1.0) 

WOCONSa WRFOPP * Cl 

C 

C *** HYDROGEN CONSUMPTION 

C 

C2 = I , 0/(HRFC ♦ 1,0) 

WHCONS= WRFOPP * C2 

'.C 

DO II la I, KCYCLE 
WORFP(I) •= WPP(I) * Cl 
WHRFP(I) a WPP (I) * C2 
:C 

WDTFCO(I) a PKVI(I) * SRCFC * Cl 
WDTFCH(I) e PKW(l) ■* SRCFC * C2 

11 CONTINUE 

C 

C *** max 02 AND H2 FLOW RATES 

C 

PKWMAX = 0.0 
DO 151 = I.KCYCLE 
IF(PKW(I).I.T, PKWMAX) GO TO 15 
PKWMAX a PKW ( I j 
15 CONTINUE 
C 

WOOTHxlll p SRCFC * PKWMAX * Cl B LBS, PER HRl 

WDOTMX (2 ) = SRCFC *■ PKWMAX * C2 B LBS. PER MR. 

WOOTI(I) B WOOTMXI I j/1600.0 
WOOTI ( 2 ) s WOOTMX(2)/16CO.O 

c 

WR ITE( IOT ,6004 j 

6004 F0RMAT(T4, 'COMPUTE TOTAL POWER AND FLOW RATES') 

WRITE ( IOT ,672 j 
672 FORMAT! ' • ) 

C 

WRITE (IOT. 601) POWTOT. WRFORP 

601 FORMAT (T4, ' POWTOTa ' ,T 1 1, F8 . 2.T25. ' WRFORPa • »T17,F8, 1 1 
WRITE (IOT, 602) (WRP { U ) , Ja I , KCYCLC ) 

602 FoPMATCTM, 'WRP a ' , T 1 1 , 1 0 ( F8. 1.4X ) ) 

WRITE (IOT, 601) Cl, C2 .. . 

601 F0RMAT!T4, ICl a',T|1,F8.i»T2S,'C2 a. .TIT.FSil j 

WRITE (IOT, 604) WOCONS, WHCONS 
604 FoRMAT(T4, 'WOCONSa' ,TI 1,F8.2,T25,'WHC0NSe',T1T,F6.2j 
WRITE (IOT, 674) (WORFP ( J j , Jsl .KCYCLE) 

674 F0RMAT(T4, 'WORFP a ' , T |1, | 0 (F8. 2 , 4X > ) 

WPITe (IOT, 675) (WHRFP(J),J=I, KCYCLE) 
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H6 675 FORMAT (T4» ‘WHRFP e' *TT 3» ?0 IF8 , 2*4X ) j 

I IT WRITE (IOT, 605) <W0TFCO( J) ,Js| . xeYtLEj 

US 605 FORMATfT4»*WOTFCOsST|l*IO<F8.2.4Xl| 

H9 WRITE ( JOT 1 606) (WDTFCHf J) , Js| ,KCY(LE) 

120 606 FORMAT(TR.»WPTFCHc',T|T,|0(F8.2.MX)) 

121 WRITE (IOT, 609) WpOTMX<1), WCOTMX(P) 

122 *09 F0RMAT(T l 4t'V!P0T MA X-02 s' ,FI0.1,T10* 'WOOTMAX*H2 eSFIO.it 

121 WRITE (IOT, 673) WDOTT ( I ) , W00TI(2) 

124 671 F0RMAT(T4, tWDOTl-02 st »F|2.8,T30, IWD0TI-H2 si *FTS*8i 

125 C 

1 26 C *»**»*»***.*****.*.*..**.*..«..*.. ..*****.**..*..*..,i****.*,**,. 

127 C 

128 C *** DETERMINE AVERAGE SPECIFIC HEAT OF FREON COOLANT 

129 C 

HO TMF2I s CTF2 1 IN ♦ TF2|0Uj/2,0 

111 CF2IS CSPF2 | (TMF2 I ) 

112 0F21 x CF2I * (TF2IJN - TF210U) B HEAT VALUE BTU/LB 

111 C 

1 34 C •«•••*•***•*•***••*****»*************••*•********•»••*•••*•»••#•*, 

115 C 

116 C *** COMPUTE TOTAL HEAT REJECTED AND HEAT REJECTED FOR EACH 

I IT C *** OPERATING INTERVAL BV FUEL CELLS 

H8 C 

119 GFCTOT e 0.0 

140 I c 0 

14 | DO 40 12 :c | , NDCVCL.2 

142 I X I ♦ | 

143 OAVAIL(I) = QDTFC * PKW { J ) R DCYCLE(I 2 ) * NEOP(I) 

144 C 

145 W0TF2IU) c QAvAIL<I>/aPai 

146 C 

147 GFCTOT s QFCTOT ♦ QAVAlLi I) 

148 40 CONTINUE 

149 C 

150 WRITE (IOT, 672) 

151 WRITE ( IOT, 6005) 

152 6005 FORMAT IT4t ‘COMPUTE FUEL CELL HEAT REJECTION DATAi) 

153 write ( IOT ,672) 

154 C 

155- WRITE ( IOT t607) PKWMAXi TMF2I 

156 607 FORM AT (T4 » ' PKWMAXs* ,T| 1»F8 .2»T25* 'TI1F2I cST17.FBi2\ 

157 WRITE ( IOT ,608 ) QF2I, CF2| 

158 608 F0RMAT(T4,'QF2| x' ,T|1,F8.2.T2S,'CF2| xSTTT.FS^j 

159 WRITE HOT. 610) (GAVAIH J) ,J S | ,KCyCLF) 

160 610 FORMAT!T4,tQAVA!Ls« t T|7t!0(FIO,0.2X)> 

161 WRITE I IOT, 61 I ) IWDTF2I ( J) . Jet ,XCYCl.E) 

162 611 FoRMAT(T4»'WDTF2lst,T|l»IO(FIO.I.2X)j 

161 WRITE (IOT, 612) OFCTOT 

164 612 FORMAT ( T4 » t QFCTOTs* ,T| 3*F 1 0. I ) 

165 C 

1 66 C * *»*•**»**********<.*****,**•*»»**.*•**,***••*••*••*•*»•*,,»••••«••, 

167 C 

168 C »** DETERMINE ENTHALPY OF FLUIDS FEEDING FUEL CELL 

169 C 

170 HFCO s 0XENTH(PC0FC»TFCN0M( | )) 

ITI HFCH x HYEHTH(PCHFC.TFCN0M(2) ) 

172 C 

! 73 C ******»«**************************«**********************•*******< 
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:c 


ITS 

c determine initial tank temperatures 


1 76 

c 


ITT 

CALL FINTAB(NTB!D(8j) 


1TB 

XTAB ( | ) e PCOFC 


1 T9 

XTA8<2) s 70.126 


180 

TEMP02 s MIPE(2*XTAB) 


181 

X 


182 

CALL F1NTAB(NTBID(T) ) 


181 

XTABj 1 ) := PCHFC 


184 

XTA? (2 ) s 4.765 


185 

TEMPH2 5 MIPEI2.XTAB) 


186 

X 


1 87 

C DETERMINE INITIAL CSUBV V*I- U ES FOR TANK T AND P CONDITIONS 


188 

C 


189 

CISBVO c CSUBV(TEMP02, PCOFC, 1 ) 


190 

CISBVH = CSUB V (TEMPH2, PC MFC, 2 J 


191 

c 


192 

X COMPUTE THE COMPRESSIBILITY OF H2 AT TEMPERATURE TFH AND PRESSURE PFH 


1 1 91 

C 


194 

X COMPUTE the COMPRESSIBILITY OF 02 AT TEMPERATURE TFO AND PRESSURE PFO 


1 1 95 

C 


196 

TKTO S: 0,0 


197 

'TKTH = 0.0 

w 

1 1 98 

ICO 

M 

199 

DO 450 I! e | , N0CYCL,2 

cn 

200 

1 = 1 + 1 

Ol 

,201 

C 


202 

ZFO o ZCET(TF0FC,PF0FC, | j 


,201 

C 


204 

CALL ZFIND|TFHFCtPFHFC,2,ZFH) 


205 

€• 


:206 

X' COMPUTE THE PERCENT OF USABLE H2 AND 02 WITHDRAWN UP 'TO THIS POINT 


:207 

C IN THE MISSION 


: 20 e 

C 


209 

TKTO c TKTO + OCYCLEUI j • WDTFCOU) 


•210 

TK02WD ( I j a TKTO 


:2I| 

TKTH = TKTH ♦ DCTCLEMI j * WDTFCMU) 


• 212 

TKH2WDU) = TKTH 


211 

C 


214 

:C ESTIMATE RESERVES AT 20 PERCENT 


215 

X 


,2' 6 

PCw002<tj = TK02WOUI/(WOCONS ♦ 0.2 * wOCONSi 


217 

PCW0H2 < I ) B TKH2W0(I )/(WHCONS ♦ 0.2 * WHCONS) 


218 

X ........ 


219 

C COHPUTE THE DENSITY OF H2 AnD 02 AS A FUNCTION OF PERCENT WITHDRAWN! 


220 

X 


221 

Cl 3 1.0 - ( ( 0,0427+PFHFC j /( ZFH+TFHFC j j 


222 

C4 s 1.0 - ( (0.04251*PF0FC)/(ZF0«TF0FCj ) 


1:221 

c 


224 

RHoTo2( I ) s 70,126 * <1.0 - <PCWDo2(lj • C4|j 


C225 

RH0TH2U) = 4.165 * (1.0- (PCWDH2II) * Cl)) 


226 

C' 


:227 



228 

c 


229 

X 


210 

C’ COMPUTE THE TEMPERATURE OF 02 IN STORAGE TANK AS A FUNCTION OF 


'211 

X DENSITY and pressure. 
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212 

211 

214 

211 

216 

C 

217 

C 

218 

c 

219 

c 

240 

241 

242 
241 
244 

c 

245 

c 

246 

c 

247 

c 

248 

c 

249 

c 

210 

211 

212 

c 

211 

214 

211 

216 

.217 

c 

218 

c 

219 

c 

260 

c 

261 

c 

262 

261 

264 

265 

c 

266 

c 

267 

268 

269 

270 

c 

271 

c 

272 

c 

271 

c 

274 

c 

275 

c 

276 

277 

c 

278 

279 

c 

230 

281 

c 

282 

281 

c 

284 

c 

285 

c 

286 

c 

287 

c 

288 

c 

289 

c 


CAUL FINTAB (NTBIO(B) ) 

XTAB<|) a PCOFC 
XTAB(2) = PH0T02(lj 
TKOtl) s MIPE(2*XTAB) 

COMPUTE THE 'TEMPERATURE OF H2 IN STORAGE TANK DURING TIME' INTERVAL' 
THETA ( I j AS A FUNCTION OF DENSITY AND CONDITIONED PRESSURE. 

CALL FINTAB (NTBID(T) ) 

XTAB { | ) s PCHFC 
XTAB(2) := RM0TH2I I) 

TKH(I) = MIPE ( 2* XTAB) 


*** COMPUTE SPECIFIC HEAT INPUT { DO/DM) FOR 02 AND H2 AS A 
* FUNCTION OF DENSITY AND STORED FLUID PRESSURE 

CALL PHTHON ( TKO ( 1 ) , RH0T02 < I j . I , PH I ♦ THETA j 
DQDYO(l) :S THETA 

CALL FINTAB (NTBJD<5) ) 

XTAB(I) = PCHFC 
XTAB ( 2 ) = RH0TH2(h 
DODWM(I) B MIPE (2* XTAB ) 


SUE 02 CONDITIONING HEAT EXCHANGER 
HTKO(I) = OXENTHI PCOFC* TKO ( I ) ) 

QIODTRM) o WDTFCO ( I j * (HFCO - HTKO(lj) 
WOTIFO(I) = B IODTR ( I ) /QF2I 

•*** SIZE H2 CONDITIONING HEAT EXCHANGER 
HTKH(I) a HYENTHI PCHFC *TKH( I ) ) 

QIHDTR(I) = WDTFCHM) » (HFCH - HTKH(lj) 
NOTIFH(I) = 0 \ HOTP ID /QF2 1 


'*** SIZE 02 TANK AND HZ TANK HEAT REOUIREMENTS 
azOOTR(I) a HDTFCO(I) *' DQDwO(I) 

OEHOTRdi a vOTFCHd) * oaDMHdl 
H0T2F0 ( I j B Q200TRII I/QF21 
N0T2FHU) e 02H0TRU J/8F2I 


•*** COMPUTE THE ENERGY OlRIVATIyE (PHI) FOR 02 AND H2 AS A 
• FUNCTION OF PRESSURE AND TEMPERATURE FOR CONST VOL 
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290 

:29l 

292 

293 

294 

295 

296 

297 

298 

299 
100 
101 
102 
101 

104 

105 

106 

107 

108 

109 

110 
111 
112 
111 
114 
■IIS 


119 

120 
121 
122 
121 
124 
'125 
'126 

127 

128 
129 
'110 
111 
112 
m 

114 

119 

116 

117 

118 
119 
'140 
'14| 
■142 
'■141 
'144 
'14$ 
'146 
147 


CSBVFO(I) = CSUBV(TKO(t),PCOFC,l ) 

CSBVFH(I) :s CSUBV(TKH( I ) , PCHFC, 2) 

c 

CALL PH7H0N ( TKO ( 1 ) » RH0702 ( 1 ) » I , PHI .THETA ) 

PHIF02( I ) c PHI 

c 

CALL FINTAB <NT81D(40)) 

XTAB(I) s. PCHFC 
XTA8{2) .= RH0TH2( I ) 

PHIFH2U) = MIPE(2,XTAB) 

C 

450 CONTINUE 

WRITE <I0Tt672j 
WR I TE ( IOT,6006 ) 

6006 FORM fl T(T4, 'DETERMINE TANK CONDITIONS FOR DUTY CYCLE*) 

WRITE ( I0T.672 j 

C 

WRITE ( I0Tt 6 1 1) HFCO, HFCH 

6(1 FORMAT<T4, 'HFCO = ' , T| 1 , F8 . 2 . 725 . 'HFCH s«,T1T»Fg.2j 
WRITE ( IOT *614) TEHP02, TEHPH2 

614 F0RMAT(T4, 'TEMROZs', Til, F8. 2.725, *T£MPH2e' t TlT»F8.2j 
WRITE ( I0T,6 1 5 ) CISBVO, CISBVH 

615 FORMAT<T4,'ClSnVO=',T|1,F8.1,T2S»'CISBVHs'»T7T»FB.1) 

WRITE ( IOT *6 1 6 j ( TK02WO ( J ) , J= I , XC YCLE ) 

6 1 6 FORMAT (T4,'TK02WD=',T 1 1, 1 0(FB.2.4X ) ) 

WRITE (IOT.6I7) (TKH2KD(J),J=I,XCYClE| 

617 FORMAT(T4,rTKH2WOC,T|1,|0(F8.2f4X) | 

WRITE ( IOT , 6 1 8 ) (PCW002(,|),JE| .XCVCLE} 

618 FORMAT(T4, 'PCW0O2=l, Til, I0IFB, 1.4X1) 

WRITE (I0T.6I9) (pCWDH2U).J=l, KCYCLE) 

619 F0RMAT(T4, 'PCW0H2st,Tn,|0<F8.1.4X)) 

WRITE (IOT, 620) Cl. C4 

620 F0RMAT(T4,'C1 =',Tn,F8.2,T2S,'C4 , e* t TlY,F#.2) 

WRITE (IOT, 621) (RH 0 T02(J).J=I,XCYCLE) 

621 FORMAT ( T4 , * RH0T02O ,T|1,(0(F8,1.4X)) 

WRITE (IOT, 622) <RHOTH2(J),Js|, KCYCLE) 

622 FORMAT (T4, « RH0TH2= ' , T 1 1, 1 0 ( F8 . 1 , 4X ) j 
WRITE (I0T.62D (OOOWO(J)«J=f*XCYCLE) 

621 FORMAT(T4, 'DOOWO s ' , T 11, 1 0 < FB , 2 * 4X ) ) 

WRITE (IOT, 624) ( DOpWH (J),Jsl,KCYCLE) 

624 FORMAT (T4, 'DOOWH = ' ,T 1 1, 1 0 (F8.2.4X ) ) 

WRITE (IOT, 625) (TKo ( J ) , ,1= I , KCYCLE ) 

625 FORMAT(T4, 'TKO s ' ,T 1 1, 1 0 ( FB . 2 ,4 X ) ) 

WRITE (IOT, 626) <TKH( J) ,,J= I , KCYCLE ) 

626 F0RMAT(T4, 'TKH = ' , T 1 1, 1 0 ( F8 . 2. 4X ) ) 

C 

UP s PAGE(O) 

WRITE (IOT, 6(161 

6116 FORMAT < //T4 2, ' *** CONTINUE COMPUTATION OF FUEL CELL PARAMETERS *<*• 
I ') 

WRITE (IOT, 6001) 

WRITE(I0T,6007) 

6007 F0RMAT(T4, 'DETERMINE HEAT AND HOT FLOW REQUIREMENTS - EACH DUTY' CY 
ICLE 1 ) 

WRITE (IOT, 672) 

C 

WRITE ( IOT ,627) (HTKO< J ) ,Je I .KCYCLE ) 

627 FORMAT (T4» UITKO S' ,T 1 1 . 1 0 ( F8 . 1.4X ) ) 
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1M8 

1M9 


628 

150 

15 1 


629 

152 

151 


610 

ISM 

155 


611 

156 

157 


612 

158 

159 


611 

160 

161 


61M 

162 

161 


615 

16M 

165 


616 

166 

c 


•167 

168 

c 


169 

170 

6008 

171 
• 172 

c 


171 

17W 


617 

175 

176 


618 

: 177 

178 


619 

179 

180 


6M0 

181 

c 


182 

c 


181 

c 


18M 

c 


185 

c 


186 

187 

188 

189 

190 
19) 


500 

192 

c 


191 

19M 

c 


195 

c 


196 

c 


197 

198 

199 
MOO 
MO 1 


502 

M02 

M01 


501 

MOM 

M05 


50M 


WRITE (IOT, 628) (HT«H( J ) , Js | , KCYCLE) 

FORMAT (TM,*HTKH c* ,TI 1, )0(F8.1,MX) ) 

WRITE (10T»629) (Q>ODTR(J),Jb|»KCYCLE) 
FORNAT(TM»»G|ODTRs*,TI1,|Q(F8.I,MX1) 

WRTTE (101,610) fQ(H0TR(Jl,J=t, KCYCLE) 

FORMAT (TM, •QIHDTRb' ,TI 1, 101 F8, I .MX) ) 

WRITE (I0T,6H) <VIOT(Ffl(,))>U=UKCYCLE) 

FORMAT (T4,'WPTtFO=i,Tn,tO(F8.1. MX)) 

WRITE ( IOT ,612) (WDTIFH<J),Jc|, KcYcLE) 

FORMAT (TM, 'wnTlFHc«,TI1, I0(F8.1,MX) ) 

WRITE (IOT, 611) (Q20DTR (J) « Jsl .KCYCLE ) 

FORMAT (TM, 'Q2ODTR=i,T|1,|0(F8. |,MX)) 

WRITE (I0T.61M) <Q2HDTRM),J=|, KCYCLE) 
FORMATfTM,»Q2MDTR=',TI1*IO(F8.|,UX) ) 

WRITE (IOT. 615) (WDT2F0(J),J S |, KCYCLE) 

FORMAT (TM,')|0T2F0r« ,T 1 1 , | 0 t F8 . 1 .MX) ) 

WRITE (IOT, 616) (W0T2FH(J),jsl .KCYCLE) 

FORMAT) TM ,'WDTHFH=',TI1»I0<FB«1«MX)) 

WRITE (IOT, 672) 

WRITE(IOT,6008) 

FORMAT(TM, 'DETERMINE ENERGY DERIVATIVE -EACH CYCLE*) 
WRITE (IOT, 672) 

WRITE (IOT, 617) (CSBVFO(J),Ja|, KCYCLE) 

FORMAT fTM, 'CSBVFO=',TI1,|0(F8.1.MX) ) 

WRITE (IOT, 618) (CSBVFH(J),Jc), KCYCLE) 

FORMAT (TM, '.CSBVFHs', Til, )0 (F8.1, MX)) 

WRITE ( IOT, 611 ) (PHIF02(.I).J=I, KCYCLE) 

FORMAT (TM , ' RHIF02S *,TI1,IQ(F8.1,WX) ) 

WRITE (IOT,6W0) (PHIFH2(,)),J=), KCYCLE) 
FORMAT(TM,'PHIFH2s*,TI1,|0(F8.1.MX)) *•* •*** 


*•* CHECK TO ASSURE ADE8UATE SUPPLY OF FUEL CELL REJECT HEAT 

QTOTR = 0,0 

DO 500 I = I, KCYCLE 

QSUMR(I) C QIODTR(I) ♦ OIHDTR(I) ♦ Q20DTRM) ♦ 02HDTR(I) 
OQANET(I) = QA v AlL( I ) - OSUMR(I) 

OToTR = QTOTR QSUmR(I) 

CONTINUE 

QEXCES s QFCTOT - QTOTR 

•*** COMPUTE MAX FLO# RATE OF F2| COOLANT REOUIRED. 

WF2IMX := 0,0 
DO 501 I e |, KCYCLE 
IF(W0TIF0(I).LT.WF2IMX) 00 TO 502 
WF2IMX = WDTIFO(I) 

IF(WDTIFH(I).LT.WF2IMX) 00 TO 501 
WF2IMX = WDTIFH(I) 

IF ( WRT2F0( I ) ,L'T. WF2 1 MX) 00 TO SOM 

WF2IMX = WDT2F0 ( I j 

IF (WDT2FH( 1 ) ,LT.WF2)MX) GO TO 501 
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406 

40? 

400 

40* 

410 

411 

412 
411 
414 
4 IS 
416 
4 IT 
■4 1 8 
419 
•420 

421 

422 
421 

424 

425 

426 

427 

428 

429 

410 

411 

412 
411 
414 


417 

418 

419 

440 
44 | 
442 

441 

444 

445 

446 

447 

44b 

449 

450 
4S| 
9S2 

451 
414 
•4SS 

456 

457 

458 

459 

460 

461 
,462 
461 


W8IHK 6 
SOI CONTINUE 
c 

00 AN IN • DGANETt I ) 

00 SOS I fi 2»KCYCL6 

IF(OQANET (t).EO.OiOi 00 TO SOS 

DOAMIN a AHIHI(DQAHlN,DQANET(in 

505 CONTINUE 

c 

c 

IF(DQAMIN) S06f S06t SOT 

c 

506 CONTINUE 
C 

SOT CONTINUE 

c 

WRITE (I0T»672j 
WRITE(IOT,60C9) 

6009 F0RMATIT4, »CHECK 60E0UACY OF REJECTED HEAT SUPPLY* i 
WRITE ( IOT ,672) 

C 

WRITE 1107,641) (GSUMRI J) , Js I *KCVCLE) 

641 FORMAT (T4, *QSUMR at ,T| 1, IO(Ffl. I ,4X) ) 

WRITE (IOT, 642) (DQANET (,)) , Js| .KCYCLE) 

642 F0RMAT(T4, 'DOANETs' ,T|1, I0(FI0.0,2X) ) 

WRITE (IOT, 641) QTQTR, qEXCFS 

641 F0RHAT(T4,IQT0TR e* ,T 1 1 ,F8 . ) , T2S. * OEXCES* ' ,717, F I Eio 5 
WRITE (IOT, 644) WF2IMX, DOAMIN 

644 FORMAT(T4,iWF2|MXB',T|1,F8.2,T2S,'oaAMINBl,Tl7,FI2.0i 

C .. 

C A***********************************************************,,****** 

c 

C *** COMPUTE THE WEIGHT OF PROPELLANT TANK HEATER CtRCULATINO 

C * COMPRESSOR. FIRST COMPUTE THE MAXIMUM HEAT FLOW RATE 

C ■*** REQUIRED into THE TANK 

c 

TKOMAX a 0,0 

TKHMAX = 0.0 

QMXTKO = 0.0 

OMXTKH .8 0.0 

DO Slo I a | , KCYCLE 

QMXTKO a AMAXI (QMXTKO, Q20DTR(D) 

OMXTKH s AMAXI (OMXTKH, Q2H0TR(D) 

TKOMAX s AMAXI ( TKOMAX, TKO(Il) 

TKHMAX S AMAXI (TKHMAX, TKH(I)j 
SIO CONTINUE 
C 

C *** COMPUTE the SPECIFIC HEAT AND DENSITY OF H2 AND 02 AT 

C * THE FINAL TEMPERATURE AND PRESSURE 

C 

PRFCMNf I ) a PFOFC 
PRFCMN(2) b PFHFC 

CALL DENSON (TKOMAXiPRFCMN ( I ) , I iRHOFIN ( | ) , IEEi 
CALL GSDMST(2,TKHMAX,PRFCMN(2),RHOFIN(2) ) 

CALL CSUBP (TKOMAX, PRFCMN( | ) , I ,CPFO) 

CALL CSUBP ( TKHMAX, PRFCMN( 2), 2, CPFH) 

c 
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W 


o 

o 


464 

465 

466 
46 7 

468 

469 

470 

471 

472 
471 

474 

475 

476 

477 

478 

479 

480 

481 

482 
481 

484 

485 

486 

487 

488 

489 

490 

491 

492 
491 
495 

495 

496 

497 

498 

499 
■ 500 


WDTCFO e QMX7K0/(CPF0 * (TF2IIN - tOO. - TKOMAX)) 

WD7CFH ■- QMXTKH/ICPFH * (TF2IIN - 125, ••• TKHHAXjJ 
Z . ... 

WOCMP a <0.01455 * 0EL7CP '* WDTCFO) /RH0PIN< I ) 

WCIRCP(I) S WOCMP 

WHCMP s <0.01455 * DELTCP * WDTCPH}/RH0FIN(2) 

WCIRCPI2) s WHCMP 
C 

WRITE <I0T»672) 

WRITE (107.6010) 

6010 F0RMAT(T4, 'COMPUTE WEIGHT OF CIRCULATING PUMPS FOR 'TANKS*) 
WRITE (I0T.672) 


645 

646 

647 

648 

649 

650 


WRITE (I0T 
FORMAT (T4* 
WRITE ( I0T 
FORMAT <T4, 
WRITE HOT 
F0RMAT(T4, 
WRITE ( I0T 
F0RMAT(T4, 
WRITE (I0T 
Format (T4 , 
WRITE ( I0T 
FORMAT (T4» 


,645 ) TKOMAX* TKHMAx 

fTKOMAXs* *T|1,F8.2»T25.»TKHMAXs«.T17.F8.2j 
*646) QMXTKO, QHXTKH 

*QMXTK0=»,TniF8. l,T25,«8HXTKHst,TlT*F8.l j 
>647) RHoFIfXDt RHOF1NI2) 

' RH0FIH.023* *T|5.F8.1.Tln, *RH0F1N-H2 b* *T42VF8*1) 
>648) CPFOt CPFH 

• CPFO s* ,TI1*F8.1*T25« *CPFH' E*»T17.F8.lj 
,649) WOTCFO, WOTCFH 

'WDTCF05 * *T HiF8.2,T25* ' WDTCFHs* * T17*F8.2) 

>650) WOCMP, WHCMP 

i WOCMP b» *T l 1*F8 .2*T25* 'WHCMP b**T17*F8.2) 


501 

C 

502 

c 

501 

c 

504 

c 

505 

506 

c 

507 

508 

c 

■509 

c 

510 
51 1 
512 

c 

511 

c 

514 

C 

515 

c 

516 

•517 

518 

c 

519 

520 

521 

c 


*** COMPUTE RESERVE REACTANT QUANTITY' 

POWMAX * 0.0 
I .8 0 

DO 20 II ■= I *NDCYCL,2' 

I = I ♦ I 

POWMAX = POWMAX ♦ PKWMAX * DCYClE(II) • NEOPII) 

20 CONTINUE 

■* Set RESERVE AT II. 5 PERCENT OF MISSION EXTRAPOLATED MAX 
POWER REACTANT' REQUIREMENT * 

WRMAX e SRCFC * POWMAX 

WRRSRv a SRCFC * POwMAx * 0.115 


WORSRv 5 wRRSRV '* Cl 
WHRSPV B WRRSRV * C2 

•*** COMPUTE WEIGHT OF RESIDUAL REACTANTS. 


fl LBS, 
a LBS. 


WTRES( I j :B <RH0FIN( I )/RH0FIL( I ) )*( 1 .0 /( I .O-IRHOFINI I )/RH0FlL< 1 1 5 J j 
I (WOCONS -4 WORSRV ♦ WOVENT) 

WTRES(2) e <RH0F1N(2)/RH0FTL<2)I*I«.0/<I.0-<RH0FIN<2)/RH0F1L<2)))) 
I * (WHCONS -T WHRSRV ♦ WHVENT) 
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522 

521 

524 

525 

526 

527 
526 
529 

510 

511 

512 
511 

514 

515 

516 

517 

518 

519 

540 
54| 
54a 

541 
•544 

545 

546 

547 

548 

549 

550 
55| 
55a 

551 

554 

555 

556 
•557 
556 

559 

560 

561 
,562 
561 

564 

565 

566 

567 

568 

569 

570 


•571 

,573 

571 

574 

,575 

576 

,577 

578 

579 


C 

C *** -COMPUTE WEIGHT OF PURGE REACTANTS FOR FUEL CELLS. 

C 

AHPHRS s (POWTOT * 1000.0 WFCVOLT 

PURGASH) a PRGRAT(I) * PfiGTIM ( I J * (AHPHRS/PRGtNTi j > 

PURGAS(2) :a PRGRAT(2) * PRGTIM(2) * ( AHPHRS/PRGlNTiji ) 

C 

NPRGE1 e AHPHRS/PRG1N7 1 1 ) 

!F(PRGINT<I). £0.0.0* NPRGEI a 0 
MPRGea = ahphps/prgint ( ai 
1F(PRGINT(2) ,EQ,0,0) NPRGE2 e- 0 

c 

JP a PA6E(0) 

WRITE ( I OT r 6 1 16) 

WRITE (107,6001) 

WRITE! IOT.60121 

60ia f 0 rmat(t4, '.compute reserve, residual and furoe reactant ouanttttes 
I') 

WRITE HOT, 672) 

WRITE HOT, 651) PONMAX, WRMAX 

651 FORMAT ( T4 » ' POWMAXS' ,T |T,F8 , | ,735* * WRMAX ■•♦TITtFSiaj 
WRITE ( IOT ,652) WRRSRV, WORSRV, WHRSRV 

652 FORMAT ( T4 » ' WRRSRVa ' »T 1 1»F8.2* T25* * WobspVb* , T17» F8, 2,748 » 'WHRSRV*' , 

I T60,F8.2) 

WRITE (107,654) WTRES ( I j » WTRES(2) 

654 F0RMAT(T4, IWTRES-02 = ' , FT. 2 , T25 , t WTRES-H2 Bt ,F7'.2 j 
WRITE (I0T f 6fl2) AUPHPS, NPRGEI, NPRGE2 
682 F0RMAt(t4, 'tOtAL AHPERE-HOuRS a ' , F 1 0,2»T40f ' NuHBER OF F(jEL CELL Pu- 
I ROES _ FOR OXYGEN SIDE 15 ' « 14 , ' ..FOR HYDROGEN SIDE IS'. 14) 

WRITE (IOT, 681) PURGAS(I), PURGASI2) 

681 F0RMAT(T4, 'QUANTITY OF PURGE GAS USED IS — OXYGEN ' ,F6. 2, » - HVD 

IROGEN' ,F6.2) 

C 

C *** COMPUTE VOLUME OF THE REACTANT TANKS. 

C 

VOLTNK(I) = (WOCONS ♦ WORSRy wOvENT * WTRES(I ) ♦ PURGAS) I j »>f i«»7 ' 
I • (RHOFIL(I) - RHOFIN(I))) 

V0LTNK121 a (WHtONS WHRSRV WHVENT ♦ WTRESI2) ' ♦ PUROAS W >8’ 

I * (RH0PlL(2) - RH0FlN(2j)1 

C 

C *** COMPUTE AREA OF SPHERICAL REACTANT TANKS, 

C 


c 


AREATK(t) a 4.84 * ( VOLTNK( I )**0.666l 
AREATK(2) a 4.84 * <vOLTNK(2)**0.666) 


C 


WRITE (IOT, 672) 

WRITE ( IOT ,60 1 I j 

6011 FORMAT (T4, '.COMPUTE TANK VOLUME AND SURFACE AREA') 

WRITE (IOT, 672) 

C 

WRITE (IOT, 655) vOLTNK(l), yOLTNK ( 2 1 

655 FORMAT (T4, 'V0LTNK-02=' ,T|5,F8.a,no, 'V0LTNK-Ha=«*T42»F8.2) 

WRITS (IOT, 656) aREATK(I), aREATK(2) 

656 F0RMA T (t 4, 'AREArK-Oas' ,Tl5,F8.a,Tl0,'AREATK-Ha=',Y42,F8.2) 
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580 

se i 

582 

581 

584 

585 

586 

587 

588 

589 

590 

591 

592 
591 

594 

595 

596 

597 

598 

599 

600 
601 
602 
601 

604 

605 

606 

607 

608 

609 

610 
61 I 
612 
611 

614 

615 

616 
617 
6 1 8 

619 

620 
621 
622 
621 

624 

625 

626 
627 
>628 
629 
610 
611 
612 
611 

614 

615 

616 
617 


C 

C *** COMPUTE HEAT LEAK INTO REACTANT TANKS*-PER HOUR AND TOTAL 

C 

8LEAK0 5 0.0 
QLEAKH s 0.0 
I a 0 

00 10 II :s 2t NDCYCLf 2 

1 = I ♦ I ... 

CALL TCOND (TENV , TKO ( I ) , 5NBAR < I ) • S ITHIK ( 1,1) ,S ITYPE (1,1) .TOCOND ) 
OLKO(i) s TOCOND * AREATK(I) * DCYCLE(jl) 

QLEAKO a QLEAKO ♦ QLKO(I) 

C 

CALL TCOND fTENv.TKH( I ) »SNBAR<2) .SITHIK(2, I ),SITYPE(2, I j .THCOND} 
GLKH(i) a THCOND * AREATK(2) * DCVCLE(II) 

QLEAKH :r QLEAKH QLKH(l) 

C 

10 continue 

c .... 

C *••»•*••****•*•••••••••***»****•**•*«•»••**•**••**•****••*•*••«••*•• 

c 

c 

C BEGIN CALCULATING WEIGHT OF H2 VENTED DURING THE MISSION. FIRST 
C COMPUTE THE SPECIFIC HEAT OF H2 AT Ts TKH(I) AND Pa PCHFC 
C 

WVHO :* 0.0 
WVHH :s 0,0 
PVENTO c SVPRESI 1,1) 

PVENTH 8 SVPPES(2,I) 

c 

DO 550 I a I ,KCYCLE 
C 

CSBV02 a '.CSURV ( TKO( I ) , PCOFC, I ) 

CSBVH2 a :CSU8V(TKH( I ) » PCHFC.2 ) , 

QRQ002 a ( (VOLTNK (I }*C58V02 ) /M8.1) * (PVENTO - PCOFC) ’*• | 44.0 
QHQ0H2 a ( ( VOLTNK ( 2 )*CSBVH2 ) /T76 , 5) * (PVENTH - PCHFC) * 144.0 
IF(QRQ002.GT.QLK0(D) Go TO 11 
OELQ a QLKO(I) - QRQD02 

WVENTO a 0EL0/(CSBV02 * TKO(I) • ( (PVENTO/PCOFC) » 1.0)) 

11 WVHO a WVHQ WVENTO 

IF (0RQDH2.GT .QLKH( I j ) GOTO 12 
DELQH a QLKH(I) - QRQ0H2' 

WVENTH a OELOH/(CSBVH2 • TKH(l) * ( (PVENTH/PCHFCf - 1.0)) 

12 WVHH :8 WVHH ♦ WVENTH 

C 

550 CONTINUE 
C 

c COMPUTE RESULTANT TOTAL WEIGHT OF VENTED GASES. 

C 

IF(WVH0.LT .0.0 j WVHO a 0^0 
IF(WVHH.LT.O.O) WVHH a 0,0 
C 

WOVEHT -a WVHO 
WHVENT a WVHH 

C 

WRITE ( I0T.672 j 
WRITE(IOT,60I1) 

6011 F0RMAT(T4, (COMPUTE HEAT LEAK AND VENTED REACTANT QUANTITY* ) 

WRITE (I0T.672j 
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618 C 

619 WRITE ( IOTf 6«5T j (QLKO(J) f Js| ♦KCYCLE) 

640 6ST FORMAT (T9 » 'QLKO s' , Tl If 1 0 (E9.9 f IX) 1 

•6“ I WRITE ( IOT»6*58 j (GLKH(J) f Ja| .KCVCLE) 

692 618 FORMAT (TM, 'OLKII «» ,T| 1, |0<E9.9,1XH 

691 WRITE ( I0T.699 ) Qt-EAKO f OLEAKH 

699 -689 FOPMAT(T9f , flLEAKOs , ,T|1»EIO.S.T10* 'OI.EAKHs* *'T19»EI0iif 

•691 WRITE ( 10T » 660 ) WVHO, WVHH 

696 660 FORMAT(T9 f *WVHO C ,T I 1.F8.2.T29, 'WVHH e* t TlT,F8.2i 

697 Write (I0T.66II WoVEMTf WHVEHT 

■690 661 FORMAT (T9, 'WOVENTa' » T 1 1.F8.2, T29. 'WHVENTe 1 »'T1?»F8,2 j 

699 C 

610 C 

611 C 

612 C *** COMPUTE REACTANT LOADED INTO TANKS 

611 C 

619 WRTOTL(I) 8 (WOCONS * WORSRV ♦ WOVENT ♦ WTRES(I) ♦ PURGAS(||| 

691 :C 

616 WRT0TL(2) e (nMCONS ♦ WMRSRv ♦ WHvENT ♦ WTRESI2) ♦ PURGAS(2jj 

'697 C 

618 C **» COMPUTE DIAMETER OF REACTANT TANKS - ASSUMED SPHERICAL 

699 C 

660 DIATKin 8 ((1.9098 * (WRTOTL < I )/RHOFIL( I )j>**0.11 j ' * 12,0 

66 1 DIATK<2) e (( 1.9098 * (WPTOTL(2)/RMOF!L(2m**0.11) * 12.0 

662 C 

661 ITANKI s 0 

669 IF(0!ATK(|j ,GT. TKMXDI ( I | J ITANKI e | 

661 ITANK2 3 0 

666 IF ( 01 ATK (2) ,0T, TKMXDI ( 2 1 j ITANK2 a | 

66? C 

668 C **« COMPUTE REACTANT TAf(K INSULATION WEIGHT 

669 C 

670 ITI = SITYPEO.li 

67 | IT2 b SI7VPE(2,I) 

672 C 

671 TlwT(|,|) a NOP(|,|) •* AREATK(I) * RHOtllTlj * SITHIK( I , I j/12.0 

679 TIWT(2* I ) = HOP ( 2 » I ) '* ARE ATK ( 2 1 • RHOKIT2) * S!THIK(2, M/12,0 

671 . C 

676 C *** COMPUTE DIAMETER OF REACTANT TANK VACUUM JACKETS 

677 C 

678 OIAvJ(l) s DIATK(I) ♦ (VJANULdl * 2.01 

679 0IAVJ(2) :a DIATK (2) ♦ (VJANUL(2) * 2.0) 

600 C 

68 1 c *** compute weight of reactant tank pressure vessels 

682 C 

681 MATLI 8 SMTyPEi It I ) 

689 ‘CALL F1NTA0(MTBID(9t*MATLI ) 

681 FTUX| = MIPEII.TKOUAX) 

686 C 

687 THKMTI = ( I ,0 * PCOFC * 2.0 * (01 ATK ( 1)72.0) )/FTUx! 

688 IF(THKMTI.LT.MINTHK(MATL|)) THKMTI a MINTHK(MATLI j 

689 C 

690 MATL2 a SMTyPE (2,1 ) 

69| CALL FINTA0(NTDI0(9)+MATL2I 

692 FTUX2 r MIPEI I.TKHMAX) 

691 C 

699 THKMT2 = (1.0 * PCHFC * 2.0 * (0IATK12I /2.0) j /FTUx2 

699 IT ( THKMT2.LT .MINTHK ( MATL2 ) ) THKMT2 a MINTHK(MATL2) 
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pueucl 


696 

697 


696 

699 

700 

701 
•702 


701 

70M 

705 

706 


707 

708 

709 

710 
71 I 
712 

711 
7 I *4 

715 

716 

717 


•718 

719 

720 

721 

722 
721 
•724 
72S 


726 

727 

728 

729 

710 

711 

712 
711 


714 

715 

716 

717 


71B 

719 

740 


74 | 

•742. 

•741 


744 

■74S 


746 

747 

748 

749 

750 
7S| 
7*52 
711 


WTPVT(I) -a I.1S • AREATK(I) * RHoL(MATLI> * tTHKMTt/l2io} 

C 

WTPvT(2) a I.1S * AREATK(2) * RHOL(HATL2} * <7HKMT2/|2iO) 

C 

C *** COMPUTE HEIGHT OP VACUUM JACKET FOR REACTANT . TANKS 

C ASSUME SPHERICAL VACUUM JACKET (HARO SHELL) 606I-T6 ALUMINUM 

C 

MATL1 = *1 

CALL FIMTAB (NT81D(9)4HATLli 
FTUX1 a HIPE ( 1 »T£NV) 

C 

THKMT1 s (1.0 * (PCOFC/2i0) * (0JAVJ< I ) /2«0 j ) /FTUXV 
IF(THKMT1 ,LT,MINTHK(MaTL1) ) THKMT1 B MINTHK(HATLI) 

C 

THKMT4 a (1.0 * (PCHFC/2,0) * ( DIAyJ(2) /2.0) ) /FTUxI 
IF(THKMT4.LT.MINTHK(MATL1) ) THKMT4 E MtNTHK(MATLI) 

C 

HTVJ( I ) c (p| * (D1AVJ( I i**2)/l44«0) * RH0L(HATL1)*tTHKMT1/l2.0) 

C 

WTVJ(2) s (PI * ( 01 AVJ( 2)4*2)/ 144,0) R RH0L(HATL1)R(THKHT4/t2.0i 
C 

C •** COMPUTE TOTAL WEIGHT OF TANK 

HTTOT(I) :s WTPVT(I) ♦ HTVJM ) ♦ TIWTd.lj 
HTTOT (2) a HTPVT(2) ♦ HTVJ(2) ♦ TIWT(2,I) 

C 

WRITE ( 107*672) 

HRITE( IOT.60 1 4) 

6014 F0RMATIT4, 'COMPUTE PRESSURE VESSEL, VACUUM JACKET', INSULATION AND 

iTOTAi. tank weights') 

HRITE (I0T.672) 

c 

WRITE (107,662) wRTOTL(l), WRT0TL(2) 

662 FORMAT (T4» * WRT0TL-02S' »TIS*F8 .2 » T18, ' WRT0TL-H2B' »T48»F8.2f 
WRITE U0T,661) OIaTK(I), 0IaTK(2) . . . 

661 ForMAt(t 4, 'D!ArK- 0 2 s ' ,TIS, F8.2,t10, 'DIATK-H2 s'»tV2»F8.2> 

C 

IF ( TTANK I .EO. t j WRITE (IOT.6BO) DIATK( | ),TKHXDI{ I > 

680 FORMAT) 1 *** 02 STORAGE TANK DIAMETER ',F6.2,' INCHES'- EXCEEDS TH 

IE MAXIMUM ALLOWABLE PRESSURE VESSEL DIAMETER, of 2, 'INCHES,',/ 

'2 TS, 'ADDITIONAL TaNKAGE MUST BE PROVIDED. *•*') 

C 

IF ( ITANK2.EQ, I ) WRITE (I0T.68I) DUTK ( 2 ) ,TXMXDI (E) 

681 FORMAT ( » *** H2 STORAGE TANK DIAMETER »,F6.2,' INCHES EXCEEDS' TH 

|E MAXIMUM ALLOWABLE PRESSURE VESSEL DIAMETER OF ' ,F6.2, ' INCHES, •,/ 
2 TS, 'ADDITIONAL T a NKaGE MUST BE PROVlDFD. ♦**•) 

c 

WRITE (107,664 j TlWT( I , | j , TlWT ( 2, 1 > 

664 FORMAT (T4, 'TIWT*02 ai ,T| S,FB.2,T10, 'TIWT-H2 s',T42,F8.2) 

WRITE (I0T.66S) OIAVJ(t), OIAVJ(2) 

665 FO RMATfT4 , 'DIAVj-02 s' »T|S,F 8. 2,710, 'DIAVJ-H2 s',T42,F8.2) 

WRITE ( I0T ,666 ) RHOFTU(I), RHOFTU(2) 

666 FORMAT (T4, 'RH0FTU-02=i , T | S , F fl . 7 . TTO , ' RHOFTU-H2B ' ,T42,F8.7 ) 

WRITE HOT, 667) WTPVT(I), WTPVT42) 

667 FORMAT(T4, 'WTPtfT-02 a ' , Tf S.F8.2, TTO, 'WTPVT-H2 b',T42*F8.2) 

WRITE (I0T,66B) WTVJ(I), WJVJ(2) 

668 FORMAT(T4, 'WTVJ-02 8, ,T|S,F8.2,T70, 'WTVJ-H2 C ,T42»F8.2 j 
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J 


1 


****** 


'754 



WRITE (I0T*669) WTTOTdj* WTT0TI2) 

'755 


669 

P0RMATCT4*'WTT0T-02 B< *T|5*F8. 2*710* IWTT0T-H2 Bi*T42*F8.2) 

756 

C 



'757 

c 

**********************«***************************«********«**«****** 

758 

c 



'759 

c 


•** COMPUTE WEIGHT OF FUEL CELLS' 

•760 

c 



761 



FCWGT s PKWMAX * SPWTFC •* (NFCOP ♦ NFCSTB) 

•762 



ENGWT a FCWGT 

767 

c 



•754 



WRITE (I0Tt672j 

765 



WRITE ( IOT.60 1 5 ) NFCOP* NFCSTB 

’766 

6015 

FORMAT) T4, 'COMPUTE WEIGHT OF FUEL CELLS • *T15* 11 *2X* (OPERATING AND' 

'767 



l*I1*2X*' STANDBY 1 ) 

760 



WRITE (I0T*672i 

769 

c 



'770 



WRITE { I0T*670 j FCWOT 

'77 1 


670 

FORMAT(T4, 'FCWGT a'*T15 f F8.2) 

772 

c 



771 

c 

**< 


774 

c 



•775 

c 


**« COMPUTE WEIGHT OF HEAT EXCHANGERS 

776 

c 


■* FIRST COMPUTE THE HOT FLUID TEMPERATURE DROP 

777 

c 


•*** IN THE SERIES HEAT EXCHANGER SEOUENCE 

,778 

c 



779 



DTOIMX = 0,0 

•780 



DTHIMX B 0.0 

78 | 



DT02MX =0.0 

782 



0TH2MX s 0.0 

781 

c 



■784 



DO 100 I = 1 *KCVCLE 

785 



DTOIMX = AMAXI(DT01MX*HDT1F0mj 

'786 



DTHIMX = AM AX 1 (DTH IMX*WDTIFH( I ) ) 

787 



, DT02MX = AI1AX 1 (DT02MX* WOT2FO ( I ) ) 

•788 



DTH2MX AM»XHDTH2MX*WDT2FH(I)) 

,789 


100 

CONTINUE 

,790 



IF<DT0IMX.LT. DT02NX) DT0|MX B DTQ2HX 

'79 | 



IF (OTHI MX.LT.0TH2MX) DTH|MX S OTH2MX 

•792 



IFfDTOlHX.LT. DTHIMX) DTOIMX B DTHIMX - 

791 



WDTFMX = DTOIMX 

794 

c 



795 

c 



796 



QIOOMX a 0.0 

797 



DO 1 |0 I bIjXCYCLE 

■798 



if(qiodtr(d.lt.qiodmx) go to no 

•799 



CtlOOHX = GIODTRII) 

800 



jhaxo a i 

801 


110 

continue 

802 

c 



801 



QIHDMX =0.0 

604 



DO 120 I b I.KCYCLE 

•805 



IF(OIHOTR(I).LT.QIHDt1X) 60 TO 120 

806 



nlHDMX = QlHDTR(I) 

807 



IMAXH = I 

808 


120 

CONTINUE 

809 

c 



810 



T2F2I a TF2IIN - (a|ODTRjlMAXO)/{CPei * WOTFMX)) 

81 1 

:o 
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tti 

i 

M 

03 

03 


812 

814 

81 ? 

816 

817 

818 
814 
620 
821 
822 
821 
624 
82? 
826 

827 

828 
829 
810 
811 
812 
811 
814 
81? 
816 
'817 
818 
819 

840 

84 | 
842 

841 
844 
'84? 
.846 

847 

848 

849 
8?0 
8? I 
8?2 
e?i 

894 

899 

896 

897 
8?B 
899 
860 
86 ) 
862 
861 
864 
86 ? 
866 

867 

868 
869 


T1F2I a T2F2I - <0HXTK0/(CP2I * VDTFNX)) 

74F2I a 71F2I - (GtHOTR(IMAXH) /(CF2 I * WOTFMX) I 

C 

79F2I a 74F2I - <QMXTKH/(CF2I * WOTFMX)) 

C 

JX 3 0 

OTREO(I) s 0,0 
QTPEQ (2) e 0.0 
C 

C *** COMPUTE WEIGHT AND CHARACTERISTICS OF 02 HEX BE7WEEN 

C * 02 TANK AND FUEL CELL 

C 

JX s jx ♦ | 

I GAS el 
C 

H00TX(JX»IGAS) a WD7 rFO( IHAXO) ■ LBS PER HOUR 

UCODE(JX,IGAS) a HXCODE ( JX. IGAS ) 

HEXHIT(JX.IGAS) = 7F2IIN 
HEXC IT ( JX . IGAS ) 8 TKO(!MAXOj 
HEXHOT(JX.IGAS) 8 T2F2I 
HEXCOT ( JX , IGAS } s TFCNOH(I) 

HEXCOPIJX.IGAS) a PCOFC - 1.0 
HEXcIP(JX.lGAS) 8 P C 0FC 

c 

HSQREQI JX, IGAS j 8 QIOOMX 

OTRER(IGAS) = QTREQ(IGASj ♦ HSOREO( JX.IGAS j 
CALL CSUOP <TKO( IMAXO) , PCOFC, I .CPCLOF (JX, IGAS J > 

TMF2II = (TF2IIN ♦ T2F2lj/2.0 
CPF2I | a CSPF2| (TMF2I I) 

CPHOTF(JX.IGAS) 8 CPF2I I 
HSGCPE(JX.IGAS) a CPF2 I I 

HSGTOT (JX.IGAS) e (MODMX/ICPFZtl * <TF2ttN • T2P2)i} 

WDOTH ( Jx. IGAS) = Q I OOMX / ( C PF2 1 1 * (TF2fIN - T2P2ti| . 

CALL HEXF2 1 (IGAS.CIIODMX, HEXCIP( JX.IGAS J.WHXTOTJ JX^IGAS j) 

C 

c 

.0 

C «*» COMPUTE HEIGHT AND CHARACTERISTICS OF H2 HEX BETWEEN 

C * H2 TANK ANO FUEL CELL 

C 

IGAS 8 2 
C 

WOOTX(JX.IGAS) s WOTIFH(IHAXH) B LBS' PER HOUR 

UCODE(JX.IGAS) s HXCODE ( JX * IGAS) 

HEXHIT(JX.IGAS) s T1F2I 
HEXC IT ( JX , IGAS ) s TKH(IMAXH) 

HEXH 0 T( JX.IGAS) a T4F2I 
HEXCOT(JX.IGAS) s TFCN0M.2) 

HEXCOPI JX, IGAS) s PCHFC -1,0 
HEXCIPI JX.IGAS) a PCHFC 
C 

HSORFQ(JX.IGAS) e GIHDMx 

QTREO(IGAS) = OTREO.IGASj ♦ H5QRE0(JF» IGAS j 
CALL CSURP (TKM( IHaXH ) .PCHF f , 2, CPCLOF I JX, IGAS) ) 

TMF2I2-S (T1F2I ♦ T4F2D/2.0 
CPF2I2 s CSPF2I (TMF2I2) 

CPHOTF ( JX, IGAS) a CPF2I2 
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8T0 

8TI 

872 

e?r 

874 

875 

876 

877 

878 

879 

eeo 

eei 

882 

881 

8.84 

885 

886 

887 

888 
889 


890 
89 | 
6,92 

891 

894 

895 


896 

897 

898 

899 

900 
90| 
4,02 

901 

904 

905 


906 

9,07 

908 

909 

910 
91 I 


9 12 

9H 

914 

915 

916 

4,*r 

918 

919 

920 

921 
'922 
921 

924 

925 


926 

927 


HSGCPE(JX,IGaS) e C PF 2 t 2 

HSGT 0 t(JX, I CAS) B 0 )HDMX/(CpF 2 t 2 * (T 1 F 2 I - T 4 F 2 |») 

WDOTH( JX, IGAS) a Ql HDMX/(CPF 2 1 2 * fT 1 F 2 t - T 4 F 2 l{| 

C 

CALL HEXF 2 I (IOAS,QIHD«X*HEXClP(dX.!CASj»HHXTOT(JX»iGASi) 

C 

c . . 

C *** COMPUTE WEIGHT AND CHARACTERISTICS OF 02 HEX' BETWEEN 

C * 02 TANK CIRCULATOR AND 02 'TANK 

C 

JXS Jx ♦ I 
I 6 AS = | 

C 

WOOTX ( JX* I GAS I a WDTCFO 

UCOOF ( JX* IGAS ) s HXCODE ( JX, IGAS) 

HEXHIt ( JX , IGAS j a T 2 F 2 I 
HEXCIT(JX,IGAS) 'S TKOtn 
HExHOT ( JXi IGAS ) a T 1 F 2 I 
H£XCOT(JX,IGAS) a TKOMAX 
HEXCOP ( JX, IGAS ) a RCOFC 
HEXC IP ( JX i IGAS ) o PCOFC ♦ OELTCP 
.C 

HSQREQ( JX, IGAS) a OMXTKO 

(ITREO(IGAS) a OTREQ(IGAS) ♦ HSQRE 8 (JX, IGAS j 
CALL CSUBP(TKO(I),PCOFC,|,CPCLDF(JX, 1 GAS)) 

TMF 2 I 1 a (T 2 F 2 I ♦ T 1 F 2 IJ/ 2.0 
CPF 2 I 1 s CSPF 2 I (TI 1 F 2 I 1 ) 

CPHOTF(JX,IGAS) a CPF 2 1 1 

HSGCPE ( JX* IGAS ) a CPF 2 I 1 . . . 

HSGTOTIJX.IGAS) a 0 MXTK 0 /(CPF 2 I 1 * (T 2 F 2 ) » T 9 F 81 H 
W 00 TH(JX* IGAS) a QHXT K 0 /(CPF 21 1 * CT 2 F 2 I T 1 F 2 I j ) 

C 

CALL HEXF 2 I (IGAS, OMXTKO, HEXCIP(JX» IGAS). WHXT 0 T(JX*tGA 5 tj 
C 
c 

C COMPUTE WEIGHT AND CHARACTERISTICS OF H 2 HEX BETWEEN 

C * H 2 TANK CIRCULATOR AND H 2 ’TANK 

C 

IGAS a 2 
C 

WOOTX ( JX, IGAS) a wOTCFH 

UCOOE t JX, IGAS) a HXCOOE ( JX, IGAS ) 

HEXHIT<JX,!GAS) a T 4 F 2 I 
HEXCIT(JX,IGAS) a TKH( I ) 

HExHOT ( Jx , IGAS ) a T 5 F 2 I 
HEXCOT ( JX, IGAS j a TKHMAX 
HEXCOPt JX.IGAS) a PCHFC 
HEXcIP(JX,IGaS) a PcHFC ♦ OELTCP 
C 

HSQREO(Jx,IGAS) s OHXTKH 

OTREO(IGAS) a OTR£Q( IGAS) HSOREO( JX, IGAS j 
CALL CSUBP(TKH( I ) ,PCHEC, 2 ,CPCL 0 F( JX.IGAS) ) 

TMF 2 I 4 a (T 4 F 2 1 ♦ T 5 F 2 O/ 2.0 
CPF 2 I 4 a CSPF 2 I (TMF 2 I 4 ) 

CPHOTF ( JX , IGAS ) a CPF 2 I 4 
HSGCPE ( JX, IGAS ) a CPF 2 I 4 

HSGTOT ( JX , IGAS ) a OMXTKH/ ( CPF 2 1 4 * (T 4 F 2 I - T 5 F 2 |jj 
WDOTHt JX, IGAS) = QMXTKH/ (CPF 2 1 4 * (T 4 F 2 I - T 5 F 2 !)) 
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928 

C 



929 



CALL HEXF2 i < I OAS » qMXTKH,MEXC IP < JX. I GAsi »WHXT0T < JX* I GAs j 1 

910 

C 


911 

c 



912 



CALL OTPHXF 

911 

c 



914 

c 



919 

c 



916 

c 



917 

c 


*** COMPUTE THE TANK ENER0Y HISTORY AND HEATER DUTY CYCLE •***■ 

918 

c 


919 



TIMINC a 1.6 fl PERIOD DEFINED BY OAS FLOW 

940 



PSET| 5 PLSETI 

94| 



PSET2 s PLSET2 

942 



PTANKI a PCOFC 

941 



PTANK2 a PCHFC 

944 

c 



948 



U * 0 

946 



DO 200 Kl a |,N0CYCL*2 

947 



LI s ui ♦ 1 

948 



Tlfl(LI) = DCYCLE(KI) 

949 


200 

CONTINUE 

980 

c 


981 



TIME s 0.0 

982 



ICHTO a 0 

981 



ICHTM a 0 

984 



TKOW :S 0.0 

988 



TKHW s 0.0 

986 



01 CUH = 0.0 

987 



02CUH a 0.0 

980 

c 



989 



DO 2|0 K a 1 , KCYCLE 

960 

c 



96| 



CTIM '8 TIM(K) * 60.0 

962 



IFfCTIM.tT. 10.0) 00 TO 21 1 

961 



HTP a (TIM(K) * 6.0) ♦ 0.6 

964 



WDTOlO = WDTFCOtK)/6.0 

968 



H0TH10 s WOTFCM1K)/6.0 

966 



60 TO 212 

967 

:c 



968 


211 

NTP a CTIM ♦ 0.6 

969 



NDTO10 = WDTFCO<K)/60,0 

970 



HOTH'jO a WOTFCH(K)/60,0 

971 

c 


972 


212 

CONTINUE 

971 



JP s PAGE (0 j 

974 



JP s PAGE! 10) 

978 

c 


HRITE HOT .700) 

976 



977 


700 

F0RMAT(/T42,'**» COMPUTE TANK ENEROY HISTORY AND HEATER DUTY CYCLE 

978 


1 ***</) 

979 

c 


WRITE (I0T.70I) K, TtMfKj 

F0RMAT(T8. 'SYSTEM DUTY CYCLE NUMBER IS ■ ' ♦ I4.T80* *CYCLE IS i»F6i2. 

■980 

■9B| 


701 

982 



I 'HOURS IN DURATION') 

981 

c 



984 



WRITE { I0T.702) K 

988 


702 

FORMAT CT 1 20 , « CYCLE -* * 12/T4 , 'TIME' .T1 1 » • OAS' ,T20 1 » PER-CENT' .Til, ' D 
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i 


986 


98? 


988 


989 


•990 


‘91 1 


992 


'991 


9?m 

C 

995 

c 

996 


99? 

c 

998 

c 

•999 

c 

1000 


1001 


1002 


I0OT 

c 

I0OM 


1005 


1006 


IOOt 


1008 


1009 


1010 


101 1 

c 

1012 


ion 


1014 


1015 


1016 


1017 


1018 

c 

1019 


1020 


102) 

c 

1022 

c 

1021 


I02M 


1025 


1026 


1027 


1028 

c 

1029 


IOlO 


1 01 1 

e 

1012 

c 

ion 


1014 


1015 

c 

1016 


1017 


1018 

c 

1019 


1040 


I04| 


1042 


1041 

c 


(£HSITY*,T44, * PLUTO * ♦ HI, /THETA * , T61 , * PHI * , TT I , * Q-REQD * , T8 1 , « Q-CUH ' 
2,T9l*'TANK',TlOO*'fl-HTPj*TI 10* 'HEATER*/Tl I* 'FLOW', T20*' WITHDRAWN' 
1*T44»'TEMP, '»T9I,' PRES.', T 100, 'REao.'tTI t 0* 'TIKE-ON' ,TI 2 | ,' HESTER* 
** /Tl* * (MIN)*, Til.* (LBS) *,T20,» (PERCENT)', TIT. »(LB/CFj**T4H,*(-R-ji, 
•5TsT»'(H/LB)',T6l,'(P-CF/B)',TT2,*lBTtJ|»,TBl,'(BTll)',T9l,'(PStA}i, 
6T|00, ' (BTU) ' * T I 10* ' (MIN. j ' • T 1 2 I . ' CYCLE */T1 I* ' 02/HP ' ,T22, '02/H2' . 
7T14 » ' 02/H2 ' , T44 , ' 02/H2 ' » TS7 , ' 02/H2 ' , T62, ' 02/H2 ' , T72, ' 02 /H2* , T8 1 , 
8'02/H2',T9l,i02/H2',T|00*'02/H2 1, 71(0*1 02/H2' * T 1 2 1 * ' 02/H2 1 / j 


00 220 I e 1 ,HTP 

* SET TIKE COUNTERS TO APPROPRIATE TIME SU 8 -INTERVAL *' 

IPU.OT.lj GO TO 226 
PTIME a CTIK ♦ TIME 
226 CONTINUE 

DTIME s PT 1 ME - TIME 
IK 2 a DTIKE 

IHCTIM.LT. 10.01 GO TO 225 
IHDTIME.lt. 10 . 0 ) GO TO 221 
IK 2 ,s 0 

TIME a TIME ♦ 10.0 
GO TO 222 

224 DTIME a PTIME - TIME 
221 TIME a TIKE ♦ 1.0 
IK 2 a IK 2 - I 
WDT 030 a WDTFCO(K ) / 60.0 
WOTHTO a WDTFCH(K}/ 60.0 
GO TO 222 

221 TIME = TIME ♦ 1.0 
IK 2 a 0 


222 CONTINUE 

TKOW s TKOW ♦ WDT010 
TKODP s TKOW 
TkHW .s TKHW ♦ WOTHTO 
TKHDP s TKHW 

PCOxw a TKODP/ jwOCONS ♦ 0,2 • WOCONS) 
PCH2W a TKHDP/ (WHCONSp q*2 * HHCONS) 


CT a 1.0 - | (0,0127»PFHFC j /(ZFH«TF hFC j } 
CM = 1.0 - ((0,OM2ST*PFOFC)/(ZFO*TFOFC)) 

ORHO -a 70.126 * II.O - (PCOXW • CM » j 
HRHO a 4,165 * (1.0- (PCH2W * CT1 ) 

CALL FINTAB (NTBlD(fl) j 
XTAB(|) r PTANKI 
XTA9 ( 2 ) ■= ORHO 
OXTEM s MIPE(2,XTAB) 
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fuelcl 


iomh 



CALL FINTAB (NT8I0I T)) 


I04S 



XTAB(I) a PTaMKZ 


1046 



XTA8(2) = HRMO 


1 OUT 
1048 

C 


H2TEH a HIPE<2»XTAB) 


1049 

c 




I0S0 



CALL PHTHONioxTEM.OnHO.r, PHI, THETA) 


1 OS I 



DOOM 1 a THETA 


1052 



OPOUI a PHI 


I0S1 

c 




1 OSH 



CALL FINTAB (NTBIDIS) j 


loss 



XTAB(|) a PTANK2 


I0S6 



XTA 8 (2) = HRHO 


IOS 7 



000H2 s MIPE(2,XTAB) 


lose 

c 


CALL FINTAB (HTBIOlHOjj 


10 S 9 




1060 



XTAB ( 1 ) :e PTANK2 


1061 



XTAB(2) a HRHO 


1062 



DPDU2 = MIPE(2,XTA8| 


1061 

c 



1 064 

c 




I06S 



QDTTKI a WDT010 * OQOHI 


1066 



00TTK2 a HOTH10 * OOOM2 


1067 



OfCUfl a OfCUH ODTTKI 


1 060 



02CUH a Q2CUM ♦ O0TTK2 


1069 

c 




1 OTO 



CALL BETAS (OXTEHfORHO, 1 , BETAO) 


1071 

c 



1072 



CALL FINTAB (NTB10I46)) 


1071 



XTAB ( 1 ) a PTANK2 


1074 



XTAB (2) a M2TEH 


I07S 



BETAH a HIPEI2, XTAB) 


1076 

c 



1077 

1078 

1079 
IOBO 

•£. 


CALL CSUBP(OXTEH»PTANKI,|,CPO) 
CALL CSUBp (H2TEH, PTANK2, 2, CPH2 ) 


• St 

c 


OELPI a TIMING * UDPDUf/vOLTNXIl )) • 

UPCP0/BETA0f*WDT010n 

1081 



1082 

1081 

1084 

r. 


0ELP2 a TIHINC* < <DPDU2/V0LTNK(2) ) * 

(i-CPHE^BETAH) * H0TH10 j i 



PTANK2 a PTANK2 ♦ PELP2 


1085 



PTANKI a PTANXI ♦ OELPI 


1086 

c 




1007 



QHSF2I 3 ({QOTFC * PKHIX) * NEOPIX) ) /60.0) *' 0.71 

1088 

c 




1089 



IF(PTAMKI.LE.PSETI) 00 TO HO 


1090 



GO TO IIS 


1091 


110 

QTANKI •= OtCUM 


1092 



HTRONI a OTANK| /QHSF2I 


1091 



ICHTO a ICHTO ♦ 1 


1 094 


111 

IF(PTANK2,LE.PSET2) 00 TO 140 


I09S 



GO TO 1 18 

- 

1096 


140 

0TANK2 a Q2CHH 


1097 



HTR0N2 = QTANK2/QHSP2 1 


1098 



ICHTH a ICIITH ♦ 1 


1099 

c 




1100 


118 

CONTINUE 


ItOI 

c 
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i 


i 

i 

( 


FUELCL 


******** 


1 102 
It 103 



1104 
|l 101 


227 

|-l 106 


228 

,1107 
] II 06 
1109 

n to 

C 


II 1 1 
1 1 112 
!lin 


701 

M 1 14 



1 II IS 
>1116 
i 1117 
>1118 
>1119 
'(120 
1 1 121 
,1122 
1 1121 

< 


1 1124 
1 1121 

C 


I 1126 
1127 

C 


1 1128 
, 1129 

C 


! mo 

i mi 

c 


! 1112 

C 


> mi 


229 

,1114 

c 


J ms 


220 

(1116 

c 


1 1117 


221 

1118 

c 


1119 


210 

1140 

c 


II4| 

c 

-**, 

1 1 142 
1 1141 

c 


j 1144 
! 1 1 41 

6099 

1 1146 
1147 

c 


1 • 1148 
. 1149 

c 



IP(PAGE(2j) GO TO 227 
GO TO 228 
WRITE (I0T.702j K 
UP a PAGE<6) 

.CONTINUE 

WRITE HOT, TOT) TIHEfWOTOTO .PCOxw.ORHO.OXTEH.DODMI *OPDLM ,QOTT»C» • 

1 OICllM.PTANKI tQTANK! fHTROHI ,ICHT0.WDTH10*PCH2W,HRHO,H2TEM,DQOM2. 

2 0P0U2,GDTTK2,02CUM .PT&NK2.QTANX2.HTRON2. ICHTH 

FOPHAT<T| #r9.2*T||,F6.‘I*T2I.T6, , ;»TT;!,P8.R.TMr.F6,2»^2 < F6;2*T6|* 

1 F6.2*TTI»F6.l*TR0«FT«0»T90fF7,2.T99,P7.0»T109*F7'.2*TI20*I6/Ttt* 

2 F6.1rT2l ,F6,Sf T')2,r8,5»TW1»FA.?.T82*F6.2*T6l»F6,2*T7l»F6. I*T80. 

T F7.0tT90,F7.2*T99iF7.0.ri09*F7.2.T|20.I6) 


IF ( PTAHK I , 
IF (PTANK I , 
IF (PTA'IK ( , 
IF (PTAHK I * 
IF ( PTANK2 , 
IF(PTAI1K2. 
IF ( PTAHK2 , 
IF (PTAHK2* 


LE.PSETI ) 
LE.PSETI ) 
LE.PSETI) 
LE.PSETI ) 
LC.PSETE) 
LE.PSET2) 
LE.PSET2) 
LE.PSET2) 


HTRONI s 0.0 
QTAMKI e 0,0 
Q I CUM s 0,0 
PTAHK I E PCOFC 
HTR0M2 s 0.0 
0TAHK2 b 0,0 
Q2CUM B 0,0 
PTANK2 s PCHFC 


IF ( IK2.0E, I j 00 TO 224 

IF| (IK2.EQ.0). AND, (DTIHEiLE, 0.0)1 00 TO 221 

i 

IF ( CT IM.LT » I 0 • 0 ) GO TO 229 

i 

IF((0TIME.LT. 10.0). AND. (DT1HE.LE. 0.0)) 00 TO 224 

CONTINUE 

CONTINUE 

CONTINUE 

CONTINUE 


WRITE (I0T.6099) 

FORMAT ( 7////T21. I***** the supercritical fuel cell calculations ha 

I VE REEN COMPLETED ****** j 

I 

RETURN 

END 


i 
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SUBR0UTINE GASGEN 


2 

C 

1 


N 


S 


6 


7 

C 

e 

C 

9 

c 

10 


ii 


12 


11 


IN 


IS 


16 

c 

IT 


IS 

c 

IS 


20 

c 

21 

c 

22 

c 

21 


2N 


2S 


26 


27 

:c 

28 


29 


10 


11 

c 

12 


11 


IN 

c 

IS 


16 


IT 

c 

18 


19 

c 

NO 


■N 1 

c 

N2 


N1 

c 

MN 

c 

NS 

c 

N6 


NT 


N8 


N9 


SO 

c 

■SI 


S2 


SI 


SN 


ss 


S6 


ST 

.c 


SUBROUTINE «ASGEN( JX. ISAS) 

INCLUDE CDCYCL 
INCLUDE CHEX 
INCLUDE CHSORC 
INCLUDE CTAHK 

***** COMPUTE THE HEAT' SOURCE PARAMETERS, 

WGGPU (JXftGAS) e 0,0 
WGGPX (JX.IGAS B 0,0 
WGG5BT (JX.IGAS) a 0,0 
HSnREOtJX.IGAS) a 0,0 
HSGTOT(JX.IGAS) a 0,0 
HSGCPEI JX.IGAS) B 0,0 

JHSTYP a HSTVPE* JX.IGAS) 

GO TO (10,20,10). JHS7YP 

•♦*** FOR GAS GENERATOR ONLY AS HEAT SOURCE 

10 HSGSUM a 0.0 

DO «0 12 = | ,NDCYCL»2 

HSGSUM c HSGSUM ♦ WpOTH( JX. I6AS ) • DCYCLEdaj 
NO CONTINUE 

WGGFXI JX.IGAS) .a HSGSUM .1. WGGFUI JX, IGAS) 

HGGSRT ( JX , I GAS ) a WGGSBT ( JXj IGAS ) ♦ WGGFX I JX, IGAS j 
WGGTOT(IGAS) a WGGTOT ( I GAS ) ♦ WGGFX(JX.IGAS) 

ATERM r I1.82N20N - (0.01 I IT821*H5PHES< Jx, IGA5) ) ,♦ . | I ,#6l£92TE.iS * 
I (HSPRES ( JX, I GAS ) **2 ) ) - ( 1 . 1 08N21E-I) *■ (MSPRES{ JX. IGAS j**lj j 

BTERM a 7.SN70262 - 1 ,01^616 1 98*HSPRES( JX. IGA5) ) ♦ • ($.N6Bi)6NNE«S * 
I(HSPRES(JX»10A5)**2)) - (1.TRN6E-B » (HSPRES(JX.IGAS)**lj) 

HSHGHT(JX.IGAS) a A7ERM ■ * B7ERM • WpOTH( JX, IGAS) 

HXASSY(JX.IGAS) a WHXTOTf Jx, IGAS) ♦ HSWOHTI JX*IGAsj 

RETURN 

***** FOR WASTE HEAT ONLY AS HEAT SOURCE, 

20 HSGSUM a 0.0 

DO SO 12 a I.NDCYCL.2 

HSGSUM a HSGSUM ♦ WDOTH( JX. IGAS) * DCYCLE(lt) 

SO CONTINUE 

CALL CSUBPI (HSOTEHIJX, IGAS), HSMRAT(Jx, IGAS), CPEG} 

HSQRFO(JX.IGAS) a HSGSUM * CPEG*(HEXHIT( JX, I GAS j -HEXHOT; JX, IGAS ) J 
OTReOUGAS) = OTPEO(IGAS) ♦ HSORgO ( JX, IGAS ) 

HSGtOt' JX.IGAS) a HSGSUM 

HFTOT ( IGAS) a HFTOT ( IGAS j ♦ H5GT0T( JX, IGAS) 

HSGCPE(JX,IGAS) a CPEG 
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GASOEN 


*16 RETURN 

■JR C 

60 C ***** POR CAS GENERATOR AND WASTE HEAT BOTH AS' HEAT SOURCES! 

1 61 C 

63 10 WGOFU(JxilCAS) e HSAEEI JXi JGAS i /( (1. 1 162S ♦ HSMRATC Jx* IGAS j * 

61 I (0.M68TS * HSHRAT{JX,1GAS) » I.ATSt) * (HEXHtT< JX.TGAS) ■— 

I 6M 2 HEXHOT (Ox* 1GAS) ) ) 

6>5 C 

i 66 GO TO 10 

i 6T C 

68 END 
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SU8R0UTINE GETC0N 


I- 1 


1 

2 
1 

4 

5 

6 

7 

8 
9 

10 

11 

12 
n 
m 

is 

16 

IT 

18 

19 

20 
21 
22 
21 
24 
21 
26 
27 
26 
29 


C 'P *■* *'* -* '* * #*- ♦ * •#*•* ‘P-P- P"P'.-P"P-. :P' 

C ■•* ROUTINE NAME - ROUTtNE TO UNPACK THE FIRST' •#■• 

C •* WORD OP 'THE CONFIGURATION *' 

C '* TABE. SEE S.R, STOCON FOR 

C ■'* WORD FORMAT '*'• 

C ■* ROUTINE LANG - FORTRAN V IJNIVAC 1106 EXEC 2* 

C ■* PROGRAMMER - R. BOLLINGER IRrI 102 26911 * 

C ’* DATE CODED - 1/11/70 '*' 

C :P * P .P .P .-P p :p p * * «* P p p .p-.p--p- p-;p'-p--pvp- 

c 

SUBROUTINE GETCON(IOX) 

C 

c :***«* EXPLANATION OF THE CALLING SEOUENCE 

C * 

C ***** IOX - INDEX OF THE CONFIGURATION TABLE 

C 

LOGICAL OlAG 
C 


INCLUDE CCNFIG 
INCLUDE CIOIJMT 
C 

DO 10 II •= 1,6 

ICNFIGUI) c I PBYTE (CONFIG! IDX,I )«tt,0«6) 

10 CONTINUE 
C 

IF <DIAG(|»6HGETC0Njj H RJTE (107,6000) IOX,ICNFIG 

RETURN 

6000 FORMAT <<V| 4 X, 7 IS) 

END 
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FUNCTI0N G0MTRY 


C 

C 

c 

c 


c 


c 

c 


c 


c 

c 


c 

c 


c 

c 


c 

c 


c 

c 

c 


e 

c 


c 


c 


FUNCTION '.CONE (R.H) 

INCLUDE :CONSTi LIST 

VOLUME OF CONE (CIRCULAR) 

CONE sPI*R*R»H 7 1.0 
RETURN 

VOLUME OF CYLINDER (RIGHT-CIRCULAR) 

ENTRY CYLNDR (R.H) 

CONE s Pt*R*R*H 
RETURN 

VOLUME BETWEEN CYLINDER AND SPHEROID 
RROT IS ALONG AXIS OF ROTATION 
ENTRY CYLSPH (RROT.fi) 

CONE S P!«R*R*RROT / 1.0 
RETURN 

VOLUME OF FRUSTRUM OF CONE (CIRCULAR} 
ENTRY FRCONE (P.H.R2) 

CONE = PI*H*(R*R ♦ R2*R2 ♦ RRR2 ) / 1.0 
RETURN 

VOLUME OF HEMISPHERE OR HALF OF SPHEROID 
PPOT IS ON AXIS OF POTATION 
ENTRY HSPHER (PPOT.R) 

CONE s PI201*R*R*RR0T 
RETURN 

VOLUME OF SPHERE OR SPHEROID 
RROT IS ALONG AXIS OF ROTATION 
ENTRY SPHERE (RROT.fi) 

COME c 2, 0*PI201*R*R*RR0T' 

RETURN 

AREA OF XYLINOER 
ENTRY ARACYL (R.H) 

CONE s 2,0*PI*P*H 
RETURN 

AREA OF FRUSTRUM 
ENTRY AREAFR (P.H.R2) 

CONE a PI*(RtR2)«SQRT (H*H+(R-R2)**2) 

RETURN 

AREA OF HALF' OF SPHEROID 
RROT ALONG AXIS OF ROTATION 
ENTRY ARSPHR (RROT.Rl 
IF (RROT ,LE. R) GO TO 110 

ROTARED ABOUT MAJOR AXIS 
E = ECCENTRICITY FOR ELLIPSE' 

E 8 SORT (RROTARROT — R*R ) /RROT 
CONE a PI*R*(RTRPOT*ASIN(E)/E) 
return 

110 IF (RROT ,EQ. R) GO TO 120 

ROTARED ABOUT MINOR AXIS 

E a SORT (R*R - RROT*RROT I / R 

CONE s PI*(R*R+(RROT*RR0T/(2,«E))*ALOG((l. ♦£>/(». -eh) 
RETURN 

AREA OF HEMISPHERE 


I 


j 
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******** 


gomtry ******** 


se 

60 


120 CONE -.a 2,-*Pt*R*R 
RETURN 
END 
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SUBROUTINE HEATEX 


1 

2 
1 
4 
•5 
6 
•r 
8 
9 

10 

I I 
12 
H 

14 

15 

1 6 
IT 
18 

19 

20 
21 
22 
21 

24 

25 

26 
2T 
28 
29 
10 

II 
12 
11 

14 

15 

16 
17 
10 
19 

40 
4| 
42 

41 

44 

45 

46 

47 

48 


51 

52 
51 

54 

55 

56 

57' 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


* * * *'.<* * * ■* * * * ;■*■•* 

* HEAT EXCHANGER DESIGN ROUTINE * 

* UNIVAC 1 1 08 FORTRAN V * 

•* DATE COOED JULY 27* 1 971 * 

* J, MCKAY BLDG 201 X45(78 * 

•* REVISION I JUNE |«72 * 

'* REVISION 2 AUGUST’ 1 972 * 

SUBROUTINE HEATEX( IGAS, JHEX, WOOTC I *1 HIN,TCIN,THOUT ,TCOUT,PHiN» 
I , PC1N»PHOUT,PCOUT»OFR,WDOTH| .TOTHHXj 

REAL ICINf icOUT»NTU 

•INCLUDE CIOUNT 
INCLUDE CHEX 
INCLUDE TABLOK 


DIMENSION F||2}.T2(2)*F1(2),F4(2),F5(2) 

C 

data FI/700. *|80. / F2/|60.*15./ FI/278. 2*59, 4/ F4/T1I. 4*187.5/ 
I , FS/500.,150./ 

C . 

6010 FORMAT CO'TIO,'**** SPECIFY COLO FLUID TYPE ***** ) 

6020 format ( lO'TIO, ****** error TERMINATION IN HEATfX ****•<) 

6010 FORMAT ('O'TIOt'*** THERMAL BYPASS REOUIRED ***< ) 

6040 FORM A T ( 1 0 r T I Of i *** T-HOT(OUT) > T-HOTIIN) **•') 

6050 FORMAT < * 0 * T I 0 * * *** T-HOTIIN) MUST BE < 1500 DEG-R ***' I 
6060 FORMAT ( • 0 • //T I 0 * '*** TCR =tF7.1.' OUT OF RANGE'-. HEXl Noi*m 
I ' GAS TYPE '12.' SUBUNIT ' 12* 1 **»') 

6080 FORMAT ( *0 'T 1 0* 1 *** PCIN e'F9,2.' NOT IN RANGE «**•) 

6090 FORMAT ( ' 0 ' T I Of 1 *** TCIN ='F9,2.' < 'F9.2f' *•*•) 

6100 FORMAT ( '0'TIOf •*** TCOUT *'F9,2f ' < ' F9.2f' ***« j 

c 

c 

DO 1000 JKMsIfl 
NCVG s 0 


c initialize output variables 
c 

DO 12 1 :S 1,1 
TCRU (JHEXflflGASj s 0.0 
FHDTHU(JHEXfl.IGAS) a 0.0 
FDPCU ( JHEX , I . I GAS ) s 0,0 

CRU (JHEX, I • I GAS ) B 0,0 

NTUU (JHEX, I, IGAS) a 0.0 

UAU (JHEX, I, IGAS) « 0.0 

WOUAU (JHEX, I, IGAS) ■ 0,0 

NTHXU ( JHEX, 1 4 IGAS) s 0.0 

12 CONTINUE 

c 

C *** THE 0/F RATIO IS RESTRICTED TO ONE, PCOUT AND PHOUT *** 

C *** MUST BE SPECIFIED '***' 

C 

OF 9 I. 

HDOTC = HDOTCI 
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******** heatex ******** 


58 



NDOTMI a o; 

59 

C 


I0AS B | OXYGEN . » 2 HYDROGEN 

bO 



IF (TGAS ,0T. 0 .AND. ISAS .17. 1) GO TO 110 

M 



WRITE (107 f-6010) 

62 



RETURN 

61 


no 

CONTINUE 

64 

c 


CALC. PRESSURE DROPS 

65 



DPH e PHIN - PHOUT 

66 



DPC e PCIN - PCOUT 

6T 

c 


CHECK FOR ACCEPTABLE PRESSURE DROPS 

68 



IF (DPH ,LE, 0.4*PHIN) GO TO 120 

69 



DPH s 0.4‘PHIN 

TO 



PHOUT S PHIN - DPH 

71 


120 

IP (DPC ,LE. 0,2S*PCOUT) GO TO 110 

T2 



DPC c 0.25 * PCOUT 

TV 



PUN s PCOUT ♦ DPC 

74 


no 

CONTINUE 

T5 

c 


CALC. TEMPERATURE DROPS 

76 



DTC c TCOUT - TC1N 

7T 



DTH B THIN - THOUT 

78 



DHCIN a THIN - TCIN 

79 

c 



80 



FWDP a 1.0 

81 



PWOP a 1 .0 

82 

c 


CALCULATE ENTHALPY OP COLD PLUID 

01 



CALL EfITIICH ( PCIN, TCIN t IGAS, IC I N ) 

84 



CALL enthoh <PCOUTVTCOUT,IGaS.!COUT) 

as 

c 


PINO CHANGE IN ENTHALPV fCOLO FLUID) 

86 



DIC a ICOUT - ICIN 

87 

c 


CALC. P ( SAT ) 

88 



PSAT a .126 * PHOUT * OF 

89 

c 


.LOOKUP T(SAT) 

90 



CALL FINTAB (NTBID(2U) 

91 



THSAT a HIPE ( 1 .PSAT) 

92 

c 


CHECK FOR POSSIBLE CONDENSATION 

91 



IF (THOUT ,GT. THSATOO.j GO TO 210 

94 



THOUT = THSAT * 10. 

9*5 



DTH = THIN - THOUT 

96 


210 

IF (THOUT .LT. THIN) GO TO 240 

97 



WRITE (IOT.6040) 

98 



GO TO 4000 

99 


240 

IF (THIN ,LE. 1500.) GO TO 250 

100 



WRITE ( IOT 1 6050 ) 

101 



GO TO 4000 

1 02 


290 

CONTINUE 

101 

c 


CALCULATE EFFECTIVENESS 

104 



1SW 8 1 

105 



TCOSAV S TCOUT 

106 



EFFC a DTC 7 OHCIN 

107 


260 

EFFH a DTH 7 OHUN 

108 

e 


CALC. EFFECTIVENESS SUM 

109 



EFSUMa EFFC ♦ EFFH 

no 

:C 



in 

C 


CHECK RANGE OF EFFECT. SUM 

112 



IF (EFSUH ,0E. 0,9) GO TO 100 

in 



GO TO (270.280 ) » 1SW 

1 14 


270 

THOUT a THSAT 10. 

115 



DTH a THIN •• THOUT 
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1 


HEATEX 


1 16 



1SW E 2 

117 



GO TO 260 

1 US 

C 


IF EFSUM :CAN»T BE RAISED BY THOUT, 'THEN CHANGE THE 

119 

C 


PARTIAL TCOUT BY USING A BYPASS 

120 


280 

EFSUM s O.S 

: 121 



XTCO '= THOUT - DHClN/2.0 

122 

c 


THERMAL BYPASS 

i 121 



HOOTC e WOOTC«DTC / (XTCO-TCIN) 

! 124 



TCOUT = XTCO 

1 25 



DTC = TCOUT - TCIN 

1 126 



WRITE (I0T»6010 ) 

127 



CALL ENTHOH (PCOUT, TCOUT, IGAS, ICOUT j 

128 



DIC s ICOUT - I C I N 

129 


100 

IF (EFSUM .LE. 0.91) GO TO 110 

no 



EFSUM = 0.9| 

111 



THOUT = DTC ♦ THIN - EFSUM*DHC!N 

112 



DTH ■= THIN - THOUT 

111 


110 

CONTINUE 

1 14 

c 


OF INPUT — LOOKUP C SUB P (COMB.PROD.) 

IIS 



ISW2 a | 

116 



CALL FINTAB (NTBIDI 24» ) 

H7 


112 

XTAB(I) a (THOUT ♦ THIN) / 2.0 

110 



XTAB ( 2 ) := OF 

119 



ACSBPH s MIPE (2.XTAB) 

mo 



DIH a ACSBPH*DTH 

mi 



WDOTH | = WD0TC*0IC/DIH 

142 



ACSBPC :s DIC / DTC 

mi 



CC s WOOTC*ACSBPC 

|U4 



CH a vjOOTH 1 *AC5BPH 

ms 



CMIN = CC 

146 



IF (CMIN , GT. CM) CHIN a CM 

|4 7 

c 


FIND EFFECTIVENESS 

148 



EFFT a CC*DTC / tCMIN*DHCIN) 

149 



IF (EFFT .IT. 0.9) GO TO 120 

ISO 



GO TO (114,114, 120), ISW2 

IS | 


114 

ISW2 a ISW2 ♦ 1 

1 S 2 



EFFT :a 0.89S 

IS! 



THOUT = THIN - EFFTPCMlN / CH*0HClN 

IS4 



DTH « THIN - THOUT 

ISS 



GO TO 112 

IS6 


120 

TCSAT a TSAT (PCOUT, IGAS j 

1ST 

c 



IS8 

c 


SUBDIVIDE HEAT EXCH, ACCORDING TO HEAT TRANSFER' RANGE *** 

IS9 

c 



160 



IF (RCIN ,GE. 10. 0 .AND, PCIN ,LE, 22S0.) GO TO 140 

161 



HRITE ( IOT >6080 ) PCIN 

162 



GO TO 4000 

16! 


140 

IF (PCIN .GT, FI (IGAS) j 00 TO 170 

164 



IF (TCIN .LT, FH ( IGAS ) ,pR, TCIN ,GT. TCSAT) 80. TO 400 

I6S 



IF ( ABS (TCOUT -TCSAT ) . GT, 0,00S«TC0UT) GO TO ISO 

166 

c 


HAVE BOILING SUB-UNIT ONLY 

167 



ISU a 8 

1 68 



GO TO 460 

169 


ISO 

IF (TCOUT .LE. SOO.) GO TO 160 

170 

c 


HAVE BOILING. PARALLEL, COUNTER-FLOW SUBUNITS 

171 



ISU a 1 1 

172 



GO TO 460 

17! 

c 


HAVE BOILING AND PARALLEL-FLOW SUB-UNITS 
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HEATEX 


174 

•160 

ISU s 10 

TTS 


GO To 460 

176 

170 

IF (TCIN *tT. F2(IGAS> ,0R. TCIM ,6E. Fl( IGASli GO TO 400 

177 


IF (TCOUT. ,GT. Fl(IGASj) GO TO 180 

(78 

C 

HAVE SUPERCRITICAL SUB-UNIT ONLY 

1 79 


ISU 'S 4 

180 


GO TO 460 

I8| 

180 

IF (TCOUT .LE. 500.) GO TO 190 

182 

C 

HAVE SUPERCRITICAL. PARALLEL. COUNTERBLOW SUB-UNITS 

188 


ISU = 7 

184 


GO TO 460 

185 

c 

HAVE SUPERCRITICAL AND PARALLEL FLOW SUBUNITS 

186 

190 

ISU s 6 

187 


GO TO 460 

188 

400 

IF (TCIN ,LT. 500.) 00 TO 410 

189 

:c 

HAVE COUNTER FLOW SUBUNIT ONLY 

190 


ISU e 1 

m 


GO TO 460 

192 

410 

IF (PCIN .GE, F4(IGASj j GO TO 420 

191 


IF (TCIN .GE. TCSAT) GO TO 410 

(94 


WRITE (IOT.6090) TCIN.TCSAT 

195 


GO TO 4000 

196 

420 

IF (TCIN .GE. F1(IGAS)j GO TO 410 

1 97 


WRITE UOT.6090) TCIN,F1( IGAS) 

(98 


GO TO 4000 

199 

410 

IF (TCOUT ,LE. 500.) GO TO 440 

:200 

C 

have parallel and counter flow subunits 

201 


ISU = 1 

202 


GO TO 460 

201 

440 

IF (TCOUT ,GT. FlflGASjj GO TO 450 

204 


WRITE (TOT. 6100) TCOUT. PI ( I GAS ) 

205 


GO TO 4000 

:206 

c 

HAVE PARALLEL FLOW SUBLNIT ONLY 

•207 

450 

ISU s 2 

208 

C 

HEAT EXCHANGER NOW SUB-OIVIOED 

209 

460 

CONTINUE 

210 

X 


21 1 


NSU s 0 

212 


DO 470 1=4. ( .-1 

211 


NKU E 2** ( I- I ) 

214 


IF (AnP(ISU.NkU) ,NE. NkU j GO TO 470 

215 


NSU e NSU 1 

216 


NSS = I 

217 

470 

CONTINUE 

218 


IF (NSS ,EQ, 4 j NSS 8 1 

219 


NST s 4 •- NSS 

220 


NSS 8 NST ♦ 1 - NSU 

221 

C 

. 

222 

c 

*** NOW 00 THROUGH REQUIRED SUBUNITS AND COMPUTE’ PARAMETERS 

221 

c 


224 


FPCIN e PCIN 

225 


FTCIN s tcin 

226 


SDPC s 0. , 

227 


TOTWHX SO. 

228 

c 


229 


00 2000 ISsNSS.NST 

210 

X 

THREE POSSIBLE SUBUNITS 

211 

X 

SET TEMP,. AND PRES. LIMITS EACH UNIT 


LMSC-A991396 



B-181 


I 


I 

I 

I 

} 


HEATEX 


212 



<30 TO <480t110»170)tTS 

211 

C 


BOILING OR SUPERCRITICAL 

214 


480 

IF USD «LE. T) GO TO 490 

211 

C 


BOILING 

216 



FTCOUT = TSAT (PCIN-DPC/2. , t«AS ) 

217 



GO TO 190 

218 

c 


SUPERCRITICAL 

219 


490 

FTCOUT s TCOUT 

240 



IF (TCOUT .GT. F3 ( IGAS ) j FTCOUT a F1II0AS) 

:24| 



GO TO 190 

2 U H- 

c 


. PARALLEL FLOW UNIT 

2^1 


110 

IF (TSU..LE. 1) GO TO 140 

2*»4 



FTCIN s FTCOUT 

241 



FPCIN a FPCOUT 

246 


140 

FTCOUT a TCOUT 

2 47' 



IF (AND(ISU,») ,NE. 0) FTCOUT a 100. 

248 



GO TO 190 

2M9 

.C 


counter flow unit 

210 


170 

IF USU ,EQ, 1 ) GO TO 180 

211 



FTCIM a FTCOUT 

212 



FPCIN a FPCOUT 

211 


180 

FTCOIJT a TCOUT 

:214 


190 

CALL ENTHOH (FPCIN* FTCIN. I GAS, FUN) 

211 



IF (OPC .GT. 0.) GO TO 600 

216 



FOpC s 0.2 *FPCIn / NSU 

217 



GO TO 610 

218 


600 

CALL ENTHOH (FPCIN-DPC/2i * FTCOUT* IGAS* FIOT) 

219 



FDPC a 5PC / OIC * (FIOT-FIIN) 

260 


610 

CALL ENTHOH ( FPCIfl-FOpC. FTCOUT. IGASfFIOT) 

261 



FDIC :B FIOTwFIIN 

262 



FOPC = OPC / QIC * FDIC 

261 



IF (IS ,EQ, 1 ) FDPC a FOPC/2. 

264 



FPCOUT :s FPCIN - FOPC 

261 



FWDTH a WDOTC*FDIC/DIH 

266 

c 


PRES - TEMP SUBUNIT RANGES HAVE BEEN SET 

267 



IERR a 0 

268 



IF US ,NE. 1) GO TO 610 

269 

c 


COUNTER FLOW. 

:270 



CALL TCRCAL (THIN, THOUT, FTCOUT, FTClN.TCRMIN.TeRHAX j IERR ) 

271 



GO TO 640 

272 

c 


supercritical, boiling or parallel 

:271 


610 

.CALL TCRCAL (THIN, THOUT.FTCIN, FTCOUT .TCRMIN.TCRHAX, IERR) 

274 


640 

IF (IERR ,NE. 0) GO TO 4000 

271 

c 


DETERMINE NUMBER OF HEAT TRANSFER UNITS 

276 



FOTC a FTCOUT - FTCIN 

277 



FEMX ;B DTH 

278 



IF (FOTC , GT, OTH) FEMX a: FOTC 

279 



FEMX a FEMX/ITH1N-FTCIN) 

:2B0 



FDIH a WOOTC*FOIC/FWDTH 

28 1 



AVCPC a FOIC/FPTC 

282 



AVCPH a FDIH/OTH 

281 



CM I N a WDOTC*AVCPC*1600. 

284 



CMAX a FWDTh*AVCPH*1600. 

281 



,CR a CM IN 

286 



IF (CMAX .GE. CMIN) GO TO 670 

287 



CR ;= CMAX 

:288 



CMAX a CMIN 

:289 



CMIN a CR 
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HEATEX 


290 


670 

CR S'CR/CMAX 

29| 



00 TQ ( 680 1 690 « 700) t IS 

292 


O 

CD 

O 

IF (ISU .LE. 7) 60 TO 690 

291 

C 


soiling 

294 



NTU b -AL0G (1.0-FEMX) 

295 



00 TO 710 

296 

c 


SUPERCRITICAL OR PARALLEL 

297 


690 

NTU s -ALOG ( 1 ,-FEMX-CR*FEMX) / (l.0*CR) 

298 



GO TO 710 

299 

c 


COUNTER FLOW 

100 


700 

NTU s ALOG <(l.-FEMX)/(l,-CR*FEMXn / (CR-I.i 

101 

c 


CALC. UA FOR EACH UNIT 

102 


710 

UA a NTURCHIN 

101 



IF (IS .GT. |) GO TO 720 

104 



IF (ISU .GT. 7) GO TO 720 

105 

c 


calculation FOR supercritical onlv 

106 



GOPC :s FDPC*F5 ( I GAS ) / FTCOUT 

107 



CALL TCRCLC ( IfiAS.GOPC, FPC I N,0PH, PHIN.TCR) 

108 



IF (TCR .GT. 10.0) TCR = 10.0 

109 



CALL WOUACL ( WOUA ) 

110 

c 


special form of weight calc. FOR supercritical 

111 



WTHX c WOUA*UA*{ 1 ,*TCR>/( I ,+TCRMAX)*TCRMAX/TCR 

112 



GO TO 740 

111 

c 



114 

c 


CALC. TCR FOR 02 OR H2 

115 


720 

CALL TCRCLC ( IGAS.FOPC, FPC IN, DPH. PHIN.TCR) 

116 

c 


IS TCR WITHIN ACCEPTABLE RANGE 

117 


721 

IF (TCR .LE. TCRMAX) GO TO 724 

118 

•C 


MUST LOWER TCR 

119 

c 


LOWER (DPC/PCIN) 

120 



CALL TCRLOW (FPCOUT, IGO) 

121 



GO TO (72 1 »722 ) * IGO 

122 

c 


TRY RAISING (DPH/PHIN) 

121 


722 

DPH e 2.RDPH 

124 



IF (DPH .LE. ,4*PHIN) GO TO 721 

125 



PH IN n PHOUT / 0.6 

126 



DPH = 0,4*PHIN 

127 



CALC TCRCLC ( IGAS.FOPC, FPClN.OPHfPHIN.TCRj 

128 



IF (TCR .LE, TCRMAX) GO TO 710 

129 



MCVG = IS 

110 



ETCR = TCR 

111 



GO TO 710 

112 


721 

PHJN b PHOUT DPH 

111 



CALL TCRCLC < IGaS.FDPC.PPCIN.OPH, PHIN.TCR j 

114 



IF (TCR ,GT. TCRMAX) GO fO 722 

115 

c 


CHECK FOR TCR TOO LOW 

116 


724 

IF (TCR .GE, TCRMIN) GO TO 710 

117 

c 


’ RAISE (CPC/PCIN) 

118 



CALL TCRRAZ (FPCOUT, IGO) 

■119 



GO TO (724, 725), IGO 

140 


725 

CONTINUE 

14 1 



NCVG x IS 

142 



ETCR e TCR 

191 

c 


CALC, (W/UA) 

144 


710 

CALL WOUACL (WOUA) 

145 

c 


calculate weight for this sub-unit' 

146 



WTHX S WOUA * UA 

147 

c 


TOTAL HEAT EXCHANGER WEIGHT 
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HEATEX **♦♦♦*** 


•148 

740 TOTWHX a TOTWHX WTHX 


•149 

C 


110 

SDPC :S SDPC FDPC 


111 

c 


iia 

TCRU (JHEX, IS, IGAS) c 

TCR 

■in 

FWDTHU(JHEX,IS,IGAS) x 

FWOTH 

'144' 

FDPCU (JHEX, IS* IGAS) 8 

FDPC 

111' 

.CPU (JHEX, IS, IGAS ) x 

CR 

116 

N7UU (JHEX, IS* IGAS) x 

NTU 

117 

UAU (JHEX, tSf IGAS) :e 

UA 

lie 

WOUAU ( JHEX, IS, IGAS) a 

WOUA 

119 

WTHXU (JHEX, IS, IGAS) X 

WTHX 

160 

C 


'161 

.2000 CONTINUE 


162 

PC I N = PCOUT SDPC 


161 

TCOUT = TcOSAV 


364 

IF ( fjCVG ,EQ, 0) GO TO 

4010 

'161 

1000 CONTINUE 


166 

WRITE ( IOT ,6060 ) ETCR*JHEX,|0AS,NCV6 

167 

GO TO 4010 


168 

4000 CONTINUE 


169 

WRITE (IOT, 6020) 


'170 

CALL EXIT 


171 

C 


'172 

4010 CONTINUE 


171 

CPCLDF( JHEX, IGAS) 8 ACSBPC 

'174 

CPHOTF(JHEX,IGAS) o acsbph 

’171 

EPSLNC< JHEX, IGAS) e EFFC 

'176 

EPSLNH( JHEX, IGAS) 8; EFFH 

'177 

EPSLNS ( JHEX, IGAS ) 8; EFSUH 

•178 

' I ISU( JHEX , IGAS) a ISU 


179 

NSSK (JHEX, IGAS) x NSS 


180 

NSUk ( JHEX , IGAS ) a NSU 


'101 

IF (TOTWHX .LT. 1.0) TOTWHX B 1.0 

182 

C 


181 

RETURN 


184 

:c 


181 

. END 



i 


t 
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SUBR0UTINE HEXELC 


I C 



2 

C 


=r 

c 


N 

c 


s 

C 


6 

:c 


7 

c 


8 

C 


9 

c 


10 

c 


1 1 

c 


12 

c 


n 

c 


in 

c 


IS 

c 


16 

c 


IT 

c 


18 

c 


19 



20 



■ 21 

c 


22 


u 

1 

21 

c 

:24 


H-* 

2S 


oo 

26 

:2T 

c 


28 



29 



TO 



T 1 



12 

c 


11 



IN 



IS 



16 

c 


■17 

c 


18 

c 


19 



NO 

c 


N 1 



N2 

c 


NV 

c 


•NN 

C 


NS 



N6 



NT 



N8 



N9 



SO 



SI 



S2 

:C 


SI 

c 


SN 

c 


SS 



S6 



•57 



THE SUBROUTINE COMPUTES THE W£!GHT\ANO DELTAP FOR ELECTRICALLY 
HEATED HEAT EXCHANGERS EMPLOYING THE PROCEDURES SET FORTH IN 
AR-OES.REF.MAN.-EXT.PRESSN.SYS.FOR CRYO. STOR, SYSTEMS, AR-71 -7STS, 
SEPT. |0, 197), NAS9-I0NST (NASA-HOUSTONK 

**** NOTE THAT PROGRAM ASSUMES THE HEATER FLUX (HFs<Q/A )REF; j 
• TO BE RATED AT A REFERENCE TEMPERATURE OF 960 DEGREES 
•* RANK DIE, (SEE AR-7 | -7S17 , SEC .«> ) IF A DIFFERENT REFERENCE 
•TEMPERATURE is TO be used. THEN 'TREE! MUST BE CHANGED. 
**»• A NI-FE ALLOV RESISTANCE HEATER ELEMENT is ASSUMED, 

PROGRAMMED BV — R.F.HAUSMAN, DEPT 62-19, ION, LHSC, 2-19-79 


SUBROUTINE HEXELC (NGAS, TIN, TOUT, PIN, HF,LDI A, WDOT,RHOGAS,IF!N, 
I HEXWGT, DELTAP, IJOA, DH, HLNGTH j 


REAL MASVEL, LDIA 

INCLUDE CIOUNT 
INCLUDE -TABLOK 


DH s LDIA * 2.0 
T I » TIN 
72 a TOUT 
PI = l.|N|S9T 
TREF a 960.0 


PCI = 796.9 
PC2 = 187, S 
PC9 a N92i2 


B OXYGEN CRIT.PRES, 
B HYDROGEN CRIT.PRES, 
B NITROGEN CRIT.PRES. 


**» CALCULATE THE MASS VELOCITY 


10 CONTINUE 

MASvEL x WDOT/(PT*DH) 

•** calculate the overall heat transer coefficient -u. 

IF(NGAS.EQ.I) KGS e 2 
IF(NGAS,EQ,2) KGS s I 
IF ( NGAS ,EQ» | 8 ) KGS B 2 
CALL FINTAB (HTBIDIMI >9KflS) 

XTAB ( | 1 x PIN 
XTA8(2) a MASVEL 
UOA a MIPE(2,XTA9) 

CALCULATE THE VARIABLE VALUES FOR HEX LENGTH EQUATION 


TMEAN a CT2 ♦ TI1/I.0 

CALL CSUBP (TMEAN, PIN, NGAS, CPBAR) 

BONE :s PI ••• DH * HF * TREF 
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B-185 


HEXELC 


i 

i 


i 


i 


S8 



Sr 



60 



6) 

C 


62 

C 


61 

C 


•6H 



6S 



66 



67 

C 


60 



69 



TO 



71 

C 


72 

C 


71 

c 


7H 



TS 

c 


76 

C 


77 


20 

•78 

c 


79 

c 


80 

c 


81 



82 



81 



8H 


10 

8S' 



86 


HO 

87 


SO 

88 

c- 


89 

c 


90 

c 


91 



92 

c 


91 



9H 

c 


9S 

c 


96 

c 


97 



98 

c 


99 


60 

100 

c 


101 

c 


102 

c 


101 



IOH 



IOS 



106 



107 

c 


108 



109 

c 


1 10 



I 1 1 

c 


112 




BPIO s 2.0 '* (BONE/{PI*DH j ) 

PHIONE = ( ( (T2**2)»(T(’**2> I/BPID) 

PHITWO = (AL06(T2/T)))/U0A 

COMPUTE CORRECTION FACTOR BETA FOR PHITWO 

IF(NCAS.EQ.I) POPC -3 PIN/PCI 
IF(N0AS,EQ,2) POPC = PIN/PC2 
IF (NGAS.EQ. 1 8 ) POPC s PIN/PCI 

CALL FINTA8 (NT81D<HH)J 
XTAB ( I ) := POPC 
BETA s MIPE ( I t'XTAB ) 

*** EVALUATE HEXrLENSTH EQUATION 

HLNGTH = MASVEL * CPBAR *• (PHIONE ♦ BETAPPHITHO) 


CONTINUE 

•■*** COMPUTE HEX HEIGHT 

IF(NCAS.EQ.I) GO TO 10 
if(ngas.eq.2) go to ho 
IF(NGAS.EQ,|8) go to ho 

HEXWGT = 0.ISI998H •*' (0HPP| .0S1T9) ’* HLNGTH 
GO TO SO 

HEXWGT = 0 .09S0HHS ■* (DHPPI.06I) * HLNGTH 
CONTINUE 

*** IF ANTI-BURNOUT FINS ARE USED - COMPUTE FIN HEIGHT 
IF(IFIN.EQ.O) 00 TO 60 

FINwGT n 0.20688721 •* (0 H*p7.I920H> • HLNGTH 
ppp XOHPUTE HEX TOTAL HEIGHT 
HEXWGT c HEXHGT FINWOT 
CONTINUE 

■•ppp COMPUTE HEX OELTAP FOR FLUID CONSIDERED 

CALL FINTAB (NTBlDIHSj) 

XTAB( I J b HLNGTH 
XTAB(2) :b MASVEL 
SIGOLP = MIPE(2,XTAB) 

DELTAP := SIGOLP/(RHOGAS/0.076S) 

RETURN 


END 
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SUBROUTINE HEXF21 


W 

I 

H* 

oo 

OJ 


2 

1 

4 

5 

6 
7 

e 

9 
10 
1 1 
12 
n 
m 
is 
16 

17 

18 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 

14 

15 

16 

17 

18 
19 

40 

41 

42 
41 

44 

45 

46 

47 

48 

49 

50 

51 

52 
SI 


c 

c 

c 

c 

c 

c 

c 



c 

20 


10 


40 


SO 

60 


C 

70 


c 

c 


SUBROUTINE HEXP2l<I6AS»aRE0 f pC!N,HXWT) 

■*** data CONTAINED IN THIS SUBROUTINE CAME FROM THE FOLLOWING 
■* SOURCE. FREON-21 CRYOGENIC HEAT EXCHANGER PARAMETRIC DATA*- 
•*** AIRESEARCH REPORT No; 71-7720. DTD. 9-22-71. 

IF ( IGAS.EQ.2) GO TO 70 

IF (OREO. LE.SOOOO.O. AND. QREO.GE. 10000. 0. AND. PCIN.GEiGOOii 00 ’TO 10 

IF(QREO.LT. 50000.0. AND. OREO. GE. 10000.0. AND.PCIN.LT, 600. i GO TO 20 

IFlOREO.LT. 10000.0. AND. OREO. GE. 700.0.ANO.PCIN.6e.600. i 60 TO 10 

IF(QREQ.LT. 10000.0. AND. OREQ.GE. 700.0. AND. PCIN.LT.600i > GO TO 40 

IF(QREQ.LE.'70000.0. AND. QREQ.GT.SOOOO.O. AND. PCIN.GE. 600.) GO TO SO 

IF ( QRE0. LE. 70000.0. AND. QREQ.GT.SOOOO.O. AND. PCIN.LT. 600.) GO TO 60 

IF(QREO.LE.SOOOO.O. AND. OREO. GE. 40000.0) HXWT a 0.80 
IF(QPEO.LT. 40000.0. AND, QPEO.GE. 10000.0) HXWT a 0.6S 
IFIQREO.LT. 10000.0, AND. QPEO.GE. 20000. 0) HXWT a 0.4S 
IF(0PE0. LT.20000.0. AND. QREO.GE, 10000. 0) HXWT a 0.2S 
RETURN 

IF(QREO.LE.SOOOO.O. AND. OREQ.GE. 40000.0) HXWT * 0,60 
IF(QPEQ.LT. 40000.0. AND. QPEO.GE, 10000.0) HXWT a 0,40 
IFIqreO.LT.IOOOO.O. AND. OPEO.GE, 20000.0) HXWT -a 0.2S 
IF(0REQ.LT. 20000,0. AND. QPEO.GE. 10000,0) HXWT a 0. IS 
RETURN 

IF(QREQ.LT, 10000.0. AND. QPEO.GE. 2000, 3) HxWT a 0.10 
IF(QPEO.LT. 2000.0. AND. QPEO.GE. TOO. 5) HXWT a 0.10 
RETURN 

IF(QPEO,ET. 10000.0. AND. QPEO.GE, 2000,0) HXWT a 0.20 
IF(QREQ.LT, 2000.0 , AND iQREQ.GE, 700.0) HXWT a 0.08 
RETURN 

IF(QREQ.LE. 70000.0. AND. QREQ.GT.SOOOO.O) HXWT a 1.0 
RETURN ' 

IF(QREO.LE. 70000,0. AND. QREQ.GT.SOOOO.O) HXWT a 0.8 
RETURN 

IF(QREO.LE, 60000.0. AND. QREQ.GE.SOOOO.O) HxWT a O.T' 
IF(QPEQ.LT.SOOOO.O, AND. QPEO.GE, 40000. 0) HXWT a 0,8 
IFIQREO.LT. 40000.0. AND. QPEO.GE. 10000.0) HXWT a 0.6S 
IFIQREO.LT.IOOOO.O, AND. QPEO.GE, 20000,0) HXWT a O.SO 
. IF(QREO,LT. 20000.0. AND. QREQ.GE, 10000.0) HXWT a 0,40 
IF(QPEO.LT, 10000,0. AND. QPEO.GE. 2000.0) HXWT a 0.2S' 

IFIQREO.LT, 2000.0. AND. QREO.GE. SO. 0) HXWT a O.IS 

RETURN 

END 
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J 



FUNCTI0N HPTCP 


1 

FUNCTION HPTCPlPREStTEHpj 

• 291 

OOOI 

2 

HPTCPBPTHEAT(PRES»TEMP, I ) 

1292 

0002 

1 

RETURN 

1299 

0009 

9 

END 

1299 

0009 


l 


h-* 



I 


1 
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FUNCTI0N HPTCV 


FUNCTION HPTCV ( PRES » TEMP j 
HPTCVsPTHE AT ( PRES » TEMP * 2 } 
RETURN 
END 


)29S 000 » 
1296 0002 

1 297 0009 

1298 0009 
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****<*•**' 

f 


FUNCT10N HPTGAM 


• | FUNCTION HPTC AH ( PRES t TEMP ) 

2 HPTGAM = PTHEAT<PRES*TEHP.1) 

. 1 RETURN 

i 4 END 


1299 0001 
noo 0002 
noi oooi 
noa oeo 4 



FUNCTI0N HPW 


1 

C 


*.•#?**« 

2 

c 


ROUTINE NAME 

1 

c 


’* ROUTINE LANG 

•4 

c 


PROGRAMMER 

<5 

c 


DATE CODED 

6 

c 


:fr p * •* 

T 

c 



8 


FUNCTION HPW(JX.IGAS) 

9 


HPW c 0, 


0 


RETURN 


1 


END 



W 

I 

M 

«0 

O 


. HEX PROPELANT WEIGHT CALC. * 
•FORTRAN V UNIVAC 1108 EXEC 2*' 
. R. BOLLINGER I9R1 102 26911 *' 
• H/ll/TO * 

■if :* *• ** '* # ;# 1 f#- 
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B-191 


SUBR0UTINE HTLEAK 


t 

• 

SUBROUTINE HTLEAK(TENV,TFLO,TFLH,WSVH) 

z 

c 


r 

c 

■'*** THIS IS CURRENTLY A DUMMY ROUTINE 

4 

c 


5 


WSVH s 1.0000 

6 

c 


7 


RETURN 

e 


EtlO 


i 
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*•***•*• 


FUNCTI0N HVAP 


, | FUNCTION HVAP(NfTlI) 

2 DIMENSION HVBPt 17), Rf I?) 

1 DATA (HVBP ( I ) fls I M7) /9 1 ,62* 1 9S.1, T1 .SV f 9S ,1yTS. *2 1 9^ 2*8 I i'9»2t9i2» 

4 I B|.9*221,,?!.S.S89,1*t?8.l,42S.8,l21.,208,»M.'/ 

S' DATA (R( I), Is I, 17) /48. 11,766, 8. 40. 67 *766.8, 42. Ot *96. IStjS. 62, 96. IS 

6 I ,28. 62, SS. 81*40. 67, 90. 77*16. 8, 16. 9S*|I. 9,11.8,186.1/ 

T IF ( N ,EQ,2,OR, N.EQ.4 ) GO TO S 

$ HVAP=HVDPtH)*(( l,-T/TB0lUN))/n.-TSTART(N)/TB0lL(N)>i**i18 

9 I -R(N)*T1Z/778,1 

10 RETURN 

I I S HVAP=-I60.0S404+16,424S6S*T-I .4 1 76269 I *T*T».0260 f 4 121 «T«T*T- 

1.2 I .209926SIE-1*T»*4*,1IS4429E-6*T**S 

11 RETURN 

14 END 


W 

I 


(D 

to 
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FUNCTI0N HYENTH 


1 

2 

r 

4- 

5 

6 
7 
B 
9 

10 

11 

12 
II 

14 

15 

16 
IT 
18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 

14 

15 

16 
77 
18 
19 

40 
4 I 
92 

41 

44 

45 

46 
47' 

48 

49 

50 

51 

52 
SI 
S4 

ss 

S6 

S7' 


C 

c 


c 


c 


FUNCTION HYENTH ( PRES *'TEMP j 


0001 0002 


DIMENSION .L0C(29),JP(24) f Mx(24J«8F«24),DP(24)#BT(29jtDT(24)»PS(20) 
1 *T5 120) *'Tj.( |0)*HS(IQ), Hi 1 181) 

DIMENSION AA( 91 ) , AB ( 1 00 ) , AC< I 1 0) , AD< 1 0 1 ) . AE( 1 0 1 j * AF( 1 1 1) » A6r 101) 

I *AH j | 12) » A I ( 1 06) *AJ{ I I 9 ) , AK ( I 04) * AL( 21) 


0002 0004 
0001 OOOS 

0004 0006 

0005 0007' 


EQUIVALENCE! H,AA),( H< 94),AB),t H( 194), AC). t 104). AD) 00060009 

1 ft H ( 40S)»AE)*( H ( S06)*AF)»( H( 6 I 9 ) « AG ) » < H{ 7221.AH) 0007 0010 

2 ,< H( 014 ) t Al ) • < H ( 940 ) , AJ) « ( H( I 0S9 ) ♦ AK ) * ( H(||61)*AL) 0008 0011 


DATA LOC/| , 16* II *46*90* 1 4S» I S7* 177. 1 9S» 23 1 *261 *279,906*178*44 1 *46# 
I ,SS8, 6 1 2, 642 *682 *847, 892, 1028,1071. 1 101*1112,1121*1110*1160/ 

DATA JP/Tr')t9tit«St2*St1«6tS«1'1*6i9'4«9(9»SfS*ll>4»!7«S»S/ 

DATA MX/I , |f I, 2, 1,0,1* 1*4*1* I * 1 .4, 7,7. 7,7. If 3*9.7* | S » 3* 1/ 

DATA BP/0.,-100.,0.,0.* .9999999,0. ,100. ,264S.28, I I TS. 6B.SBT i?4»0. * 
I264S.28* | | 7S. 68. 0..S87. 84,187. 84.291, 9?. 0**440.88. 291. 92*1 76. IS?. I 
•276.1S2*0.* I I7.S68/ 

DAtA DP/IS00.»1OO.*40.* 10.* I..SOOO., I 100.* I l7S.6ftf291.92* 146.96* 
1291,92* | 1 7S. 6B *29 1,92* 146. 96*77. 48, 77. >*8*16. 74 *71, 48* 76. 74* |4.696* 

214.696*7.148*44.088,14.696/ 

DAtA BT/7000. * 1000. * 1000. * 1000. * 1000. *800. *170. *90. *90, * 90, r 90.» 
112.4*10,6*27. *7S. 6* S9. 4 ,72. *72. *S9,4*S9j 4 ,64.8 *S9, 4,28, ft,S4. , 

25000.. 5000.*SOOO.*SOOO.*SOOO./ 

OAtA DT/SOO.*SOO.*SOO.*200.*200.,SOO.*I IO.*l8.*lft t ,|8.,|8.,T.2,S.4 
l*S. 4, 7.2*1, 8*7. 6*1. 6*1. 8*. 9, 1, 8*. 9*s. 4, 1,8/ 

DAtA P5/l.022*2.*4.*8.*l4«*2S.*41.,69,,49.*|28,*IS|,*|6S.*t76.*|B2 
I.* |8S.* I86.S* I87.2S* I87.4687S* I8T.S06, I87.618S/ 

DATA TS/24.84S*27.07*29.8 | *71.07*16, 18*19.96*44. 12, 48.71*S I ,97>S4. 
I79,S6.72*S7.80*S8.S7*S8.94*S9.I8,S9.29,S9.14*S9.1S1*S9.1S6*S9.4/ 
DAtA TI./24. 846* 27. ITS, 29. 310*11. 299, 13. 1 76*14. 962*16. 672*18. 1T7'* 
119. 904*41. 4S6/ 

DA T A Hs/-|S7.82*-n6.S6,J.HS.76*-9S,46*-7S.S9,-S6.08*-76.91,-|7.94 

1.0. 69.19.10/ 

DA T AAA/ 1 0720.* I07S0, * 10780. * 1 2690. *12720.* 1 27S0.* 14780.. 1 4780., 148 
I 10. *17060., 1 6960. *16960. *19700. * 19130., 1 9260. *10720. *10720. *10770. 
2* 1 27 10. *12700 .*12700., 1 4920. *148 10., I 4780. *17620. *17 1 40. *17010.* 2 1 
1190.* I 4940., I 9S80.* 10720,* 10720. * 10720. * 12710., 12710.* 12700,* IS020 

4., 14910., |48S0.» 18000.* I 7SS0. » 1 7110. *22S60 . ,2 I 1 70, *20S20. * 1 0720. * I 
■S0720.* 10720. *10720.* I IS20..I ISOO. * 1 1 SOO. » I I S20 . * 1 2160. , I 2120. , 121 1 
60. *12120. *11260., Ill 80., II ISO., Ill 60. *I42S0., 1 409o., 14040., !40S0i* 
7| S400. , IS090 . * 14980. * 1 4940. * 1 6780 ■ * 1 6220. * 16010. ♦ 16010. » I8S00. * 1 75 
840.* 17200, *|7I20. *20680.* 1 9| 1 0 . . I 8S60 , , I 8410. * 21480. *2 I OlO. *20 |7P. 
9* 1 9980., 27 1 00. ,214 1 0. *22 1 00. *2 I S20.* 1 0720., 1 0720., 1 0720.* 1 0720./ 

DAtAAB/I 0720.*HS40.,|IS20.«IIS20.*I IS 1 0 . * I IS 1 0. * 1 24 1 0. , 1 2170. * 1 21 
1 60. * 1 21S0., I 2140., 11190. * 1 1100. *11260.. 1 1210.. 1 1220., 1 4S20.* 14110. 
•2*I42SO.*142IO.*I4|70.*IS?00.*ISS60.*IS400.* I SI 1 0. * IS2S0. * | 7680 . * 17 
7060.*l678o.*t6620.*|6SOO. *20010. *18970., | 8490. *182 10. *18020, *21 I «0 
4. *2 1 440. *20670., 202 10., 1 98«o. * 27190. , 24680. *21470., 227S0. *22260., 1 
S296o.*289o0.*270?0. *28000. '2S260.* 1661.* | 748. ,1407. *1S24.*Sl SI. *S 2 
672.«691S.*70S6,*878l,*890U»l0720.,|0820.*4t9,7*18S.S*17T,l*18S,l* 
•740 I.S* 810,7* 821. 8,826.2, 81S.9,8S I ..1261 . t 1270.* 1282., 1297.. |1|S..| 

8668.. 1687,* 1706. * 1724, * IT41. *102.2* 1 29. 1 *IS9,. I S«, 9, 182.2, 209. 4*22 
91.1*218. 9, 261. 6,284, 8. 299. I *12 1.1* ISO. 8, 162. 7*181., 419., 429, 4/. 

0ATAAC/446.e,88.14»86.1*87.94*9|,6t,96.SI* 102.2* 162.4* ISS.2* IS2.0* 
I IS1.S* I.S6, | * I S9. 9*212. S,224. *2 1 9,6*218.2*2 1 8.9* 28 1.1*299 .,291.1* 28 


0009 0011 

0010 0014 

0011 OOIS 

0012 0016 
0011 0017 

0014 0018 

0015 0019 

0016 0020 

0017 0021 

0018 0022 

0019 0021 

0020 0024 

0021 002S 

0022 0026 
0021 0027 

0024 0028 

0025 0029 

0026 0010 

0027 0011 

0028 0012 
0029 0011 

0010 0014 

0011 OOIS 

0012 0016 
0011 0017 

0014 0018 

0015 0019 

0016 0040 

0017 00“ f 

0018 00**2 
0019 0091 

0040 0099 

0041 004S 

0042 0046 
0041 00>«7 

0044 0048 

0045 0049 

0046 OOSO 

0047 00S| 

0048 00S2 

0049 OOSV 

0050 00S4 

005 1 OOSS 

0052 00S6 
00S1 OOST 


J 
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HYENTH ■#******* 




CfJ 

M 

CO 

£» 


«58 

59 

60 
61 
62 
61 

64 

65 

66 

67 

68 

69 

70 

7 1 

72 
71 
74 
75 ' 

76 

77 
•78 

79 

80 
8 I 
82 
81 
84 - 

85 

86 

87 

88 

89 

90 


91 

94 

95 

96 

97 

98 

99 
100 
10! 
102 
101 
IO4 
108 
106 

107 

108 
109 

i 10 
I I I 
112 
111 
I 14 
I 18 


26.2*234, *281 .7, 284 *8*164,1, 157.6* 111. 2 *150. 8 ,150, 1,110.8,41). 8, 424 
1.8*422, 9*420. 9*** 1 8.9 *4 1 9, * 1 26.4 *109, 2*98.11*9 1. 88 *88. 14* 20 1*9* 1 88, 
44* 1 77,2* 1 68,7* 1 62. 4*261.1* 288. 1*246, 2*218, 6*212. 8*128.1 *117:4,1(0. 
84* 104, 2*. 299.* 184. 9* 178. 8* 171. 4* 168. 8* 164. 1,448. 8, 441. 8, 440. 1*416*. 
6411 .8*222,2* 1 74. '7* (26. 4. 266. 9* 211. 7*20 [, 9, It 1.8 *288, 4*261. 1*962. 4. 

7142.7,128.1 *414. 8, 198, 7*184, 9* 468. 8, 48". 1*448. 8*»16,87*». 618*18^88 

8, -24.27,1 |.17, 46. 82,-1 0.4 1 *24, 81 *89, 14. 8. 018*19. 1 *79. 1 4*22. 08*84. 9 
99, 88. 12, 40, 42* 72. 09, 104. 7*89. 98. 90. 22, -22., 80. 6* 109.1, 140. I, 102.2/ 

DA74AD/I29. | * I 89 . ,-88 .88 *-76 . 1 7. -66,88 .-87. 67.-4R .84,-19.68,-76. j4 
I ,-67. 02 *-87, 86, -48. 74, -19. 61, -10. 42, -68. 46 *-86. 61, -47. 71, -18.82,. 2 
29.88,-20.81 ,-81.81 ,-48.09,-16.81 ,-27.86,-19. (8,-10.41 ,-40.29,-12*1 
18, -24. 21 *-18.89 *-7.47, I . | 7 *.28 .74 *- 1 8 .86,- I 0 . 9 *-2 . 96 ,8. I 4 * 1 1.84 *-9 
4.08,-1,88,1.41 ,10.88, 18.6,26.64,7.14, 12.46, ! 8.68*28.87*12, 88 *40. 42 
8* 28. 89*29, 84* 14. 81*41. 04, 47, 82, 84. 09*48. 69, 47. 6I*8|, 79*87. 21, 61. 41’ 
6,70. 29 *66.6 1 *66.87,69,81* 74. 1 2, 79.68* 86. *88. 34. 86. 1*87.94* 9 1.6 1 *96 
7,8| * 102, 2,-129, 4,-124. 6,-1 19. 8,-1 I8,*-| 10. 1,-108.8,-100. 8,-96. 08*- 
891 .IT, -| I9.4.-I 14,9,-t 1 0,4*- 1 08.8,-10 1 .2,-96,81 , -9 1 , 68,-67.2 I *-82. 
941 ,-107. 4, -| 01. 4 *-99. 26*. 94,98 *-90.6,-86. 1 9*-B I .7 ( *-77.21,-72.88/ 
0ATAAt/-92.77,-89.7t *-86. 21, -82. 46. -78. 47*-74. 17, -70. 19,-68.91,-61 
I .48,-71.81 *-72.8,-70. '77,-67.91, -64. 6*-6 1 .*-87. 2,-81.28,-49. | |,»-4| . 
228,-u9.S7,-8l .87,-80.91 *-48. 74, -48. 9, -42. 7,-19, 2u, -18.44* 19.,- I 8, 9 
1,-26.49,-30.41 ,-10.19, -28. 88, -26. 88,-21. 74,-20,48, 46,82. 40. ‘72, 17,0 
4 |, 14 .66, 11. 2 1, 12. 18, 12. 04* 12. 06* 12. 49, 88. 86*79. 8 I, 72. 99, 68. 12, 68.0 
81*62.69,61.11,60.1*89.61.126.4.117.8,109.2.101.8.98.11*98.1.91.88. 
690.11 *88. 14.-10. 19, -29.64* -28. 88. -27. 72*. 26.88, -28. | 8.-21. 74 .-22. | 
77,-20.45,-21.61,-21.11,-22.72,-21 .84, -20. 77, -I 9. 57, -1 8,24,. 1 6. 6?»- 

8 1 8. 1 7, -1 6. 47, -1 6. 89, -| 6. 27. -1 8, 68, -(4. 6. .11. 76, -I 2. 88, -1 I .27,-9.88 

9, -8. 89, -9, 8 |,-9. 86, -9. 21, -8, 6, -7. 78, -6. 72. -8. 87,-4. 14, -.88, -2. 07/ 
DA T AAF/-2.86,-2.88,-2. |8,-l ,88,-.7, .1, | .6*7.68,8.74,4.76,4.18,4.48 

1 .4.88.8.8.6.14.7.14. 16.7. 11.91. 12.17. 1 I .87, | | .1, 1 | .48, II .88, 12.81, 
21 1.82,26.2 1 ,22.8,20,28, 19.02* 18. 39, |8.24, 18.41, (8.89, | 9. 7 , 16.16,11 
1.44, 28. 82 ,26. 72. 28. 7, 28. 22* 28. (8, 28, 4, 28, 89. 46. 82,40.72. 17.0 1 ,14.6 
46*12.21 ,12.38, 32. 04, 12. 06, 12.49. 9S. |7, 80. 18*68.84,81.21,44,02*17.1 
88, 12, 88*28.98 *26. 21, I (8. 7* I 04 .1*92. 17, 81,08*70.96, 62. 88* 88 .86. 80, 6 

62.46.82. 112.6. 121.2. 1 11.6, I 04., 94. 8 1,86. 48, 79 ,09,72. 87, 67. 84, 147,7 
7, 119,7, 111 .4, 121.1* I 18.1, 107.6, 100.8*94. 17,88.86, 161 ,6,184.8* 147,1 
8* 140,2* 111,2* 126.1* 119.8, 1! 1.7, 107.8*174.7, 168,7* 162.6*186.6* 180,8 
9, 149.8* 118.8* 112.4* 126.4, | 77,4, (61 ,6* 141.4, |2( ,8*98,2* 186.1, | 7( ,7/ 

OAjAAG/ 188.4* 116.8*1 18.7, 198. I *(81 .6* 166.8, 180.8* 112,6*204,. 191 .U, 
1177.9, 161.1, 147.7,2(2.9,201 .2, (88.7,(78.8,161.6,222.2,210.1. ! 48,8, 
2186.6,174.7,-10.41,-10.61,-10.67,-10.89,-10.19,-22,8,-21,09,-21.44 
1,-21.6,-21.61,-I1.86*-|4.96»-I5.7*-|6. |8,-!6.47,-4.17, T 6. l4,-7.4»- 
48.28,-8.89,6.14.1.46,1 .84, . 1 6. -.88, (7.79, 1 1.91, I I . |8, 9. (7,7,68, 10. 
882,28.28,21,82, 18.77, 1 6. 7,44, 02* 17. 18, 12. 88 *28. 95*26. 21 .-26.48,-27 
6, 26. -27 .92,. 28. 45, -28, 92, -29. 1,-29, 62,- 29. 88, -10. I ,-10.28,-10.41,- 
721.02,-22.1 | *-21. ,-21,75, -24. 18, -24. 9,-25. 16, -25. 71, -26. 06, -26. 12, 
8- 2ft, u6*” 1 4. 94,-16. 48 7” 17, 67, *18, 68, -19, 5l,»20,25, -20, 88* “21,17, "21 
9.8|,-22.l9,-22.8,-8.01,-|0.|6,-l 1 . 84*. 1 1 .2 I ,- 1 4. 14,- 1 8,28,- 1 6 .09/ 

D Aj A AH/- 16. 77, -17, 18*-I7,88, -18. (8, ,01, -1.08,-8.17, -7, 22, -8, 72,-9. 

1 96, -| 1.01,-11. 9. -|2, 66* -1 1.11 ,-11.86,9.41, 8. 1 2,1. 87,-. 61, -2, 6, -4. 2 
21,-8.88,-6.72,-7.69,-8.82,-9.12*20.71,14.41,10.1 *6.72 ,4 . 1 , 1 .99, .26 
1,-1 . 19,-2,42,-1.47,-4,17,11.48,28.24, | 9.28, |4,8,| 1.48,8.74,6,84,4. 

471 .1. 17, | ,87* .88,48.95*16. 79, 29.44, 21. 8, | 9,44, 16.07, 11.29, | | .02,9. 
512,7. 51, 6, I4»86.1|,47. 94, 19, 94 ,11. 15 ,28.09*21.89, 20, 51*17, 76,15^44 
6, 11.49, | I, 9ft, 66. 66, 58, 21, 50. 21, 91. 14* 17. |7, 12. 28, 28, 21, 24. 89, 22,(1 
7,19.78,17.79,74.86,67.12,89.71,82.62,46.26,40.81,16.2,12.18,29.11, 
826.17,24.18,82.48,78.41,68.14,61.8,88.11,49.18,44.14,40.01,16.18*1 
91.2 ( ,10.82,88.81 ,82.68,76. 12*69.66,61.94,87.66,82.4,47.78,41.74/ 


0054 0088 

0055 0059 

0056 0060 

0057 0061 

0058 0062 

0059 0061 

0060 0064 
006* 0065 
006? 0066 

0061 0067 

0064 0068 

0065 0069 

0066 0070 

0067 0071 

0068 0072 

0069 0071 

0070 0079 
007! 0075 
007? 0076 

0071 0077 
0079 0078 

0075 0079 

0076 0080 

0077 0081 

0078 009? 

0079 0001 

0080 0089 

0081 0085 

0082 0086 
0081 0087 
0089 0088 
0085 0089 
0006 00 9 0 
0087 009| 
0080 0092 

0089 0091 

0090 0099 
009! 0095 
0092 0096 

0091 0097 
0099 0098 

0095 00°9 

0096 0100 

0097 0101 

0098 0102 

0099 0101 

0100 0104 
0101 0105 
010? 0(06 
0101 0107 

0104 0»08 

0105 0(09 

0106 OHO 

0107 OHI 
0100 0112 
0109 01 II 
OltO 0114 

on 1 0115 
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I 


w 

I 

I-* 

co 

cn 


HYENTH •*»•***** 

DATAAI/40. 24*17.27, 98. rr,89.|6*81.|8.?7.21*T|. 18 , 68 . 84. 60 . 6| *88. 69 
1 , 81 . 19 * 47 . 7 , 44 . 02 , 104 . 9 , 98 . 01 * 90 . 21 , 81 . 77, 71.12, 89 . (6,48. 89 , 11 . 88 , 
220.98* I II. 1*1 07. 1*100.8*91. 61, 88.67*76. 79* 66. 98*86.19*48. 98*I2Q. 4* 
7119.8*1 10.2* 1 04. 2 *97.79. 90. 71 *87. 18*78. I. 66 .66 *127, 6.121.6*118, ’7, I 
41 7.4* 107.8* 102, I *99,89*89.29*82.49.174. 8. 110,4* 126, | . 121 .8*1 16,4* | 
911.1 * 109.8* 100.9*99, 17*69. ! 6*9 1 .82.-1, U7*.| 0.89.- 14.26,-1 6.97, -(8. 
637,-|9,82*-2l .02 *-22. CM. -22. 92,-21. 69,. .24. 18. -24. 99,-29. 94,-26. 04, 
7-26.48,74. | 3*67.69*97. 76, 39 .09,9. 99,-1, 27 *-7,61.- 1 0,92*- 1 2.69, «|4. 
877 *- | 9.78,- | 6. 98, 8. *-|8, 9, -19.69, -20. 19.-2 | .02*81.09,77. 77*70.1* 

961 .77.90. 17,11 .98, 1 2,48, 7,S<5*- I .09*. 4, HI *-6.97*. 8. 9,. | 0 . 49,.| | . 86 / 
0A T AAJ/- 1 7. 01*- 1 4. 04 *-14,94 *89. 04 *84. 96* 79, 06 , 72. 84 *69. 92, 96. 94, 44 

1.99*70.6*17.92,9.94,4.89, I .9 t *- 1 . 24,-1. 41,-9, 22.-6, 72, -8 .01*94,98* 
290.77*86. 16*8 I .07*79.42*69.01 *61 .99, 92. 84*42.98* It .64*22.12* 19.46* 
•110.97,6.94,4.28, | .98*. 01 *99,84*96.27*92.24*87.87*81, |8* 77. 97* 72,29 
4*69. 86.98, 68, 90« 67 *42.06, 13. 99, 26. 1|*20. 44, 19,88, (2.29*9, 41*109.7* 
9101.3*97.67*91.82,89.72*89.3*80.84*79.78.69.76*63.61*96.98*49,91*4 
62. 76,38. 94*29. 96*2«.89*20.7| , 109. I , 108.9* 102. 6*99. 07*98. 49*9|. 8.?7 
7.9*82.98*78.19,77. 1 6*67. 98 * 62. 1 1* 86. 27* 80 . 2*94 . 1 4 * 18 .79, 31.48*7 1 . * 

817.1.0. *0.*0.*84.1*87.3*0.*0.*0.*9T.6*72.9*41.*0.*0. *110.9*89. 8 . 62 
9. *0.*0.* 124.2* 1 07.4, 81. 28*48. *0.* 117. 8 * 121.8* 108,9*81 .* 0 .* 180.7/ 

OAyAAK/ 1 18.8* 124.9* 108.8*88,9* |64. I* (81.6* 1 92.* 1 28.9* t 11.1* 177.4*1 
167,9, | 88 . *147. *114. 8,78.8*62. 1*48.4 »0,*0.* 89, 8 *78. 1 * 6 1**4 | ,9* 29, |* 

298.8.90. t ,78.9,60. I *27.8, | 06.7*99.9,91 . I ,80.6*69.2* t |4,, 107.8, 100. 
•18,92.8*81.1,120.8*1 1 8 , 2 , | 09 . 2* I 02 . 8 *98 . * 1 9700 . * 1 9110 . * 1 9260. * 21000 
4. *22040. *2 18 I0.*27180. *28260.* 24710. *2 1190.* I 9940. * 19980. *27 180. *2 
81880.* 22680. *16210. *28890. *26680. *22860. *21 1 70. *20520. * 10120. *2664 
60 . *28020. ,42210. *18060. *1t640.* 12960. ,i 8900. *27090. *26000. *28260.* 
740110.* 14110 .* 11710 . * 10110 . *29o8o.*49o90. *41 | 70 .* 1 T 810 .* 18 920. ,718 
8|0..896|0.*49 , 510.,447|0.*4I780.*19690..7| I 90 . *89240 . *812 1 0 . *494po . 
9*46780. * 82920. *69980. * 629 10. *9811 0.,88C20.* 271 00., 214 10. *22 1 00 ./ 

DAt«AL/2I820. *11780. *26180. * 24440 .* 2189 0 . *17610. * 10000 .. 27280 . *260 

1 70.. 44900. *14480., 10710. *29080., 816 10. *19900. *14870. *126 10. *61710. 
2*46140. ,19810. *16880.7 

C 

P=PRE5 

IP (P.tT .1.0) Psl.0 
IF(P.LT.t.O) Psi.o 
T=TEMP 

IPIT.tr. 90.0) GO TO 10 
IP(T.LT, 1000.0) 00 TO 8 
IF(T.GE. 6000.0) T=8999. 99999 
IF (P.LT.10.0) 00 TO 1 
IP (P.LT.gO.O) GO TO 2 
IF(P.LT. 800.0) GO TO I 
N=l 
N I =28 
GO TO 77 

1 N=2 
NIC26 

GO TO 11 

2 N=1 
HI =27 

GO TO 11 

1 IF(P.LT.8.0j GO TO 4 
N=4 
Nl = 29 
GO TO 11 
4 N =8 


0112 0116 
0111-01 17 

0 ) (4 on * 
01 |8 01 19 
0)16 0120 

01 17 0121 

0118 0122 

0119 0121 

0120 0124 

0121 0128 
0122 0126 
0121 0127 
0124 0128 

0128 0129 
0126 0110 

0127 0111 

0128 0112 

0129 0111 

0110 0114 

0111 0118 
0112 0116 
0111 0117 
0119 0118 

0118 0119 

0116 0140 

0117 0 I 4 | 
one 0142 

0119 0141 

0140 0144 

0141 0 1 49 

0142 0146 
0147 0147 
0144 0148 


0147 0181 

0148 0184 

0149 0188 
0180 0186 

0181 0187 

0182 0180 
0)81 0189 
0184 0160 
0188 0161 
0186 0162 

0187 0161 

0188 0164 

0189 0168 
0160 0166 

0161 0167 

0162 0168 
0161 0169 
0164 0170 
0168 0171 

0166 0172 

0167 0171 
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HYENTH ******** 


174 


NIS28 

0168 

0(74 

179 


GO 70 11 

0169 

0179 

m 

9 

IFU.LT, 180.0) GO '70 '70 

0170 

0176 

177 


IF(T.I_T. 900.0) GO TO 6 

0171 

0177 

178 


N=6 

0172 

0178 

179 


GO TO 11 

0171 

0179 

180 

6 

N=7 

0174 

0180 

181 


GO TO 11 

0179 

018! 

1 02 

70 

IF(P,LT, | 775.68 ) GO TO 8 

0176 

0182 

181 


IF(P.LT. 2649.28) GO TO 7 

0177 

0181 

184 


N=8 

0178 

0184 

1 85 


GO TO 11 

0179 

0189 

186 

7 

N=9 

0180 

0106 

187 


GO TO 11 

0161 

0187 

188 

8 

IF ( P .LT ,987.84 j GO TO 9 

0182 

0188 

189 


N=IO 

0181 

0189 

190 


GO TO 13 

0184 

Olio 

1 9 1 

9 

N=l 1 

0189 

0 1 9 I 

1 *»2 


GO TO 11 

0186 

0192 

191 

10 

IF (P.LT ■ 1 r79.68 ) GO TO 12 

0187 

0191 

194 


IF (P.LT. 2649.28) GO TO !| 

0188 

0194. 

1 95 


Ns 1 2 

0189 

0199 

196 


GO TO 10 

0190 

0196 

197 

1 1 

11=11 

0191 

0197 

198 


GO TO 10 

0192 

0198 

199 

12 

IFIT.GE.99.4) GO TO IS 

0191 

0199 

200 


11=14 

0194 

0200 

201 


IF (P.GE, 1 87,6189 ) GO TO 10 

0199 

0201 

202 


PO n 1=2,20 

0196 

0202 

201 


IF(P-P5(I)) 14,14,11 

0197 

0201 

204 

11 

CONTINUE 

0198 

0204 

205 


1=2° . . , . , . , 

0199 

0209 

206 

14 

tm=ts(i-i i+(Ts<n-.Ts(i-i)>*<p-psn-n)/<psu>-ps(i-n> 

0200 

0206 

■207 


IF(T.LE.TM) GO TO 10 

0201 

0207 

208 


GO TO 21 

0202 

0208 

209 

19 

IF(P,LT. 291.92) GO TO 20 

0201 

0209 

210 


!F(P.GE. 987.84) GO TO |8 

0204 

0210 

211 


IF (T .GE.72,0) GO TO 17 

0209 

021 1 

212 


IF ( P.LT, 440 ■ 88 ) GO TO 16 

0206 

02»2 

211 


N=I9 

0207' 

02H 

■214 


GO TO 11 

0208 

0214 

2 1 S 

16 

N=20 

0209 

0219 

216 


GO TO 11 

0210 

0216 

217 

17 

N= 1 7 

0211 

0217 

218 


GO TO 11 

0212 

0218 

219 

18 

IF ( T,LT ,79.6 ) GO TO »9 

0211 

0219 

220 


N= 1 9 

02 | 4 

0220 

221 


GO TO 11 

0219 

0221 

222 

19 

N= 1 6 

0216 

0222 

■221 


GO TO 11 

0217 

0221 

.224 

20 

IF(T,GE,72.0)GO TO 22 

0210 

0224 

225 


IF1P.LT. 176,192) GO TO 21 

02|9 

0229 

226 


IF (T .LT ,69,7) GO TO 21 

0220 

0226 

227 


11=2 1 

0221 

0227 

228 


GO TO 11 

0222 

0228 

229 

21 

N=22 

0221 

0229 

•210 


GO TO 11 

0224 

0210 

211 

22 

N= 1 8 

0229 

0211 
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HYENTH 


212 

00 TO 13 

0226 0232 

at? 

21 N=23 

0227 0213 

:2m 

IF ( p.GE , 1 1 7,368. AND.T..LE, 63, j Ns24 

0228 0234 

233 

00 TO 33 

0229 0233 

216 

30 F=P/387.84 

0230 0236 

'217 

IsF 

023t 0237 

218 

IF ( I ,GT,8) |=8 

0232 0238 

219 

FIs! 

0233 0239 

:240 

F=F-F1 

0234 0240 

:24| 

FP=I.O-F 

0233 0241 

242 

TQ=FP*TL(I + I>tF«TUU*2> 

0236 02«2 

243 

IF (T, GE, TQ ) GO TO 31 

0237 02«3 

244 

HYENTHSFP*HS(X>1 >+PPHSn*2l 

0238 0244 

243 

RETURN 

0239 0243 

246 

33 !F(T.LE.SOOO.)NI=N 

0240 0246 

'247 

FP=(P-BP(N) )/OP(N) 

0241 0247 

248 

IPSFP 

0242 0298 

249 

IF(1P,0T.MX(N) j IPBMXINj 

0243 0249 

2*30 

FIsIP 

0244 0230 

23 1 

F=rP-FI 

0243 0231 

232 

FPSI.O-F 

0246 0232 

2^3 

FT=(T-BT(N! j)/DT(N) 

0247 0233 

234 

ITsFT 

0248 0234 

233 

FI=IT 

0249 0233 

'2*56 

FF=FT-FI 

0230 0236 

237 

FT=I .O-FF 

0231 023T 

2SB 

I=IT*jP(N>*IPtLOC(NI) 

0232 0238 

299 

J=I*JP(N) 

0233 0239 

260 

HYENTH=FP*FT*H( I V*F*FT*H(U| )6FP«FF*H( J)*F*FF*H( J*j j 

0234 0260 

26 1 

return 

0233 026 | 

262 

END 

0236 0262 
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SUBR0UTINE INTAB 


W 

I 

co 

oo 


I C ■*•■* •* ■* •* •* *••*••* ******** * * • ■*•-* * * 

:8' C' "* ROUTINE NAME - TABLE INPUT ROUTINE 

'T C * ROUTINE LANS - FORTRAN V UNIVAC I 1 68 EXEC 2** 

9 C ■* PROGRAMMER - R. 80LLINGER 1941 102 '26911 *• 

9 C •* DATE CODED - 1/4/70 •*• 

6 C * REVISED - JUNE 1971 .. DEC. 1971 *' 

7 C * PROGRAMMER . J, MCKAY 19.41 201 49IT8 * 

8 C * * *:*:*(**•** * * ** * * ■ * .■ * . * *'*.'*':** . * ■ 

9 C 

10 SUBROUTINE INTAB 

I I C 

12 INTEGER TITLE. OFT 

n c 

14 LOGICAL JPtPAGE 

15 C 

1-6 INCLUDE CIOUNT 

17 INCLUDE CTAB 

18 INCLUDE CTABA 

19 C 

20 DIMENSION TITLE ( 4 ) » ICMT( |4),LABV(1?9)»LABX ( 1 j *LABY(ii *11(9) 

21 C' 

22 C ***** INPUT FORMATS 

21 C 

24 9000 FORMAT (4A6.2I6.6Xi 16) 

29 9010 FOFMAT ( 19A6.A2) 

26 9020 FORMAT; 1A6.I7.SE 10.0) 

27 9030 FORMAT(6A6,2EI2.0) 

28 9040 FORMAT (116) 

29 9090 FORMAT (6E 12.0) 

10 9060 FORMAT (919) 

7 1 C 

12 C ***** OUTPUT FORMATS 

II c 

14 6000 FORMAT ('O' .T41. •■****• ECHO OF TABLE DA T A ■*•***< . 

19 I // 'T94.9A6.TI0O, 'TABLE NO. 'll//) 

16 6010 FORMAT( '0 **ERROR** the NUMBER of DIMENSION is WRONG. No a 1,19) 

17 6020 FORMAT (T26 . I 1A6. A2) 

18 6010 FORMATCO **ERROR** THE NUMBER OF POINT IS WRONG. NP c *,19) 

19 6040 FORMAT (T16.1A6.2X.9FH, 4) 

40 6090 FORMATCO **ERROR** THE NUMBER OF DATA POINTS IS WRONG. NV '8 • , 191 

4| 6060 FOPMAT) «0 **EPR0R** THE TABLE TYPE IS WRONG. TYPE n ',19) 

92 '6070 format; '0 **DIAGHOSTIC** THE NUMBER OF INTERPOLATION POINTS IS WRO 

91 IMG. HIP c l,I9.'. NIP IS SET EQUAL TO t,I9) 

94 6080 FORMAT (T92 , 1A6. 2X.F 1 2.4 j 

99 6090 FoPMAT rT92,FI2.9,9XFI2.9) 

96 6100 FORMAT! T92 » F 1 2,9 ) 

97 6110 FOPMAT(T18,FI2,«r2XFI2.9 t 9XFI2.9,2XFt2.9j 

98 6120 FORMAT (T18,FI2.9,2XFI2,9) 

99 6110 FORMAT! '0'T91,'COEfiCiENTS',6X,'COEfiCiENTS'/' 'i 

90 6190 format; ' 0'T49»'X'| llX.'Y'f'OXf'X'fllXf 'Y' ) 

9 | -6190 FORMAT; '0 **ERROR** THE ABOVE TABLE NUMBER IS LESS THAN 0 OR GREAT 

92 |ER THAN 90'//) 

93 ,6160 FORM a T('0 **dI A GMOSTIc** the ABOVE TABLE HaS ALREADY BEEN INPUT; T 

■99 I HIS TABLE SHALL REPLACE THE PREVOUS TABLE.') 

99' 6170 FORMATCO *ERROR* THE TOTAL SIZE OF THE TABLES HAS EXCEEDED '7000. 

96 I THE REQUIRED SIZE IS ',16. '. RUN TERMINATED.') 

97' 6 1 BO FORMAT C0'79X 'TOTAL TABLE STORAGE e'I6) 
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INTAB 


•38 

59 

60 
61 
62 
61 
64 
6*5 
66 
67 
66 

69 

70 

71 

72 
71 

74 

75 

76 

77 

78 

79 


HI 

112 

111 

114 

MS 


6200 FORMAT ( ' 0 'S6XI TABLE INPUT SUMMARY t// 28X'TABLE'6XTtTLE OF TABLE* 

1 I 2X 'NUMBER OF* 6X* NUMBER 0F'6X'4UMBER OF'/ 27 X' NUMBER' 766* 

2 ' DIMENSIONS ' IX 'SUBTABLES ' 9X ' WORDS '/ ) 

•6210 FORMAT (28X14, 2X*4A6t1IIS) 

6220 FORMAT M0» TRO.'NO, WORDS THIS TABLE* 


14) 


initialize the routine 


NPRT s 0 PRINT ALL TABLES (I 'TABLE/PAGE) 
NPRT n I PRINT NO TABLE OUTPUT 
NPRT > I PRINT ALL TABLES (NO PAGE EJECT) 
nprt 2 > o and nprt •=• I PRINT SUMMARY 


INTAP s NTAPEI 
IOTAP a NTAPEI 
READ (!IN,S060) 

IF (IFT .ED. 

IF (IFT ,GT, 2) INTAP a 
READ (INTAP) 

READ (INTaP) 

REWIND INTAP 
KHURDI = NV 


IFT, OFT, NPRT, NPRT2 
0) GO TO S 

IFT 

TLA.NV 
(TABLE! JKMj,JKMBl,NV) 


80 


GO TO ISO 

81 

c 


82 


S KMURDI :o 0 

81 


IF (NPRT . NE. 1 ) GO TO 

84 


IF (NPRT2 ,EQ. 0) GO TO 

8S- 


IF (PAGE (0 ) ) WRITE (IOT 

86 


2 CONTINUE 

87 

c 

***** START OF TABL 

88 

c 


89- 


DO 290 I Is 1 ,NTBN 

90 


KMUO :s KMURDI 

9 1 

c 


92 

c 

INPUT TITLE - 

11 

c 

* ND 

94 

c 

-* NC 

9S 

c 

* IP 

96 

c 

!**•** 

97 

c 


98 


READ (IIN,SOOO) TITLE, N 

99 


IFjND.LE.Oj GO TO 100 

100 


IF (NPRT ,EQ. 1) GO TO 

101 


IF < PAGE < 0 ) ) WRITE (JOT 

102 


JP a PAGE (S) 

101 


001 CONTINUE 

104 


KMURDI a kMURO) 1 

IOS 


IF (NT ,GT. 0 .AND. NT 

106 


WRITE ( 6 , 6 1 SO ) 

10? 


CALL EXIT 

108 


4 IF(TLA(NT).LE.O) GO TO 

109 


WRITE(6,6I60) 

110 


6 TLA (NT) = KMURDI 


PLOT OPTION, NOT IN MATH MODEL 

(SEE AUXILLARY TABLE PROGRAM) 


1001 


ITABLE(KMURDI) a NO 

***** TEST INPUT VALUE, 

IF (NO ,GT. I .AND. NO .LT. T) GO TO 20 


i 
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INTAB ******** 


1 16 



«RITE(6,6010) NO 

1 *7 



CALL EXIT 

1 18 

C 



1 19 

C 


***** i(r THERE ARE ANY COMMENT'XARDS "POR THIS PLOT" PRINT 

120 

C 


***** them OUT. 

121 

c 



122 


20 

IF INC .LE. 0) 00 TO 40 

121 

c 



1 24 



00 TO 12 = | *NC 

I2*> 



REAO(S.SOIO) ICMT 

126 



IF (NPRT ,EQ, 1 ) 00 TO 10 

1 27 



IF (PAGE! 1 ) I WRITE (IOT, 60001 TITLE, NT 

128 



HRITE(6,6020) ICMT 

129 


10 

CONTINUE 

no 

c 



111 

c 


'***•« INITIALIZE THE INPUT OF THN ND • 2 INDEPENDENT 

112 

c 


***** VARIABLES, 

111 

c 



1 14 


40 

NDM2 c NO - 2 

111 



NXYT = | 

|16 



IF ( NDM2, EQ, 0 1 GO TO 9Q 

I it 



IF (NPRT ,EQ. 1 ) GO TO SO 

lie 



IF I PAGE I nDm2* | ) ) WRITE (I0T*6000) TITLE*NT 

119 

c 



mo 

c 


***** INPUT ND - 2 INOEPENOEND VARIABLES. 

mi 

c 



m 2 


so 

PO 80 12 c |,NDM2 

mi 



READ ( S »S020 ) (LABV(I*l2),lB|,11,NP,(TAB(I*liI2jlI»l,NPj 

|44 



IF(NP,GT. | , ANO.NP.LT, 6! GO TO 60 

ms 



WRITE(6,6010) NP 

1 46 



CALL EXIT 

|47 

c 



148 


60 

NXYT = NXYT*NP 

149 



IF (NPRT .EQ. | ) GO TO TO 

ISO 



WRITE (6, 6040 I <LABV(I,I2),l = l*1),(TAB(I*l,I2),!«|,NPj 

ISI 


70 

CONTINUE 

IS2 



KMURD 1 = KMURDI 1 

1ST 



ITABLEI KMURD 1 ) s NP 

1 S4 



PO 7S I1=|, NP 

ISS 



KMURD 1 :S KMURD 1 1 

IS6 

c 



1ST 

c 


*** STORE THE (NO-2) INDEPENDENT VARIABLES IN TABLE ARRAY 

IS8 

:c 



IS9 


TS TABLE ( KMURD I I s TA8( 11* | , I 2 ) 

160 


80 

CONTINUE 

J6| 

c 



162 

c 


***** ip PLOTING IS DESIRED, INPUT THE PLOT' LABELS AND 

161 

c 


.'****« the min/max values of the independent- variable. 

164 

c 



1 6*5 


90 

READ (S»S010 ) LA8X,LABY»XMlN,XMAX 

166 

c 



167 

c 


***** START OF THE LOOP TO INPUT THE VALUES’ FOR EACH 

168 

c 


* OF THE TWO DIMENSIONAL TABLES WHICH MAKE UP THE MAIN 

169 

c 


•****♦ ND DIMENSIONAL TABLES. 

no 

c 



171 



inn b -i 

172 



DO 100 12 b 2, S 

tTI 


100 

111121 e - 1 
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INTAB 


r?N 

C 


ITS 

00 280 12 a IfNXYT 


r7& 

C 


ITT 

C :•**** INPUT THE 2D TABLE HEADER CABO AND 

VERIFY THE DATA. 

178 

C * NV - NUMBER OF OATA POINTS IN THE TABLE 

1 T9 

:C '* TYPE - TABLE TYPE (SEE CTAB) 


r eo 

;C- ■•****♦ N ip . fjl/MBER OF POINTS T£ BE USED 

for interpolation 

181 

:c 


182 

REA0(5.5040) NV.TYPE*NIP 


181 

IF (NPRT ,NE. 0) GO TO 1004 


1 84 

IF (PAGE(O)j WRITE (IOT,6000j TITLE, NT 


IBS' 

1004 XONTINIIE 


186 

C 


187 

IF <NV ,CT. 0 .AND. Ny .LE. NSBZ) 60 TO 110 


188 

WRITE<6,6050j NV 


189 

CALL EXIT 


190 

.C' 


I9| 

110 IF (TYPE.EQ.0fOR.TYPE.EQ. 1 j GO TO 120 


192 

HR ITE ( 6f 6060 ) TYPE 


191 

CALL EXIT 


1 94 

C 


I9S 

120 IF (TyPE.EO.O) GO TO 110 


196 

IF(NIP.GT.|.AND.NIP,LE,NV) GO TO 110 


197 

HR ITE ( 6 * 6070 ) NIP, MV 


198 

NIP :s NV 


199 

C 


:200 

C ***** OUTPUT THE HEADER DATA TO ORUH 


:20| 

:c- 


202 

110 IT ABLE ( KMURD 1 ♦ 1 ) a NV 


201 

ITA8LE(KHUP0I ♦ 2) a TYPE 


:20h 

ITABLE (KMURD 1 *1 ) a NIP 


-205 

KMUROI a kM'JROI ♦ 1 


206 

c 


207 

C ***** INPUT* ECHO AND OUTPUT TO DRUM THE 

20 TABLES. 

208 

C 


209 

IF (HPRT .EQ. 1 ) GO TO. ITO 


210 

II(N0M2) x MOD (IT (NOME) * 1 , ItAB( 1 ,N0M2) j 


211 

IF(N0M2.EQ,0) GO TO ITO 


212 

IF(N0M2.EQ.I) GO TO 150 


211 

N0M1 s N0M2 - 1 


:2l4 

C 


■215 

DO (40 11 a N0t|1, lr-1 


216 

IF ( 1 1 ( 1 1+ 1 j , GT , 0 ) GO TO |50 


217 

11(11) a MOO (11(11) ♦ 1 1 ITAB ( f • 11) ) 


218 

1 HO CONTINUE 


219 

C 


220 

150 DO 160 11 a l*N0M2 


221 

I0X = 11(11) ♦ 2 


222 

WRITE (6*6080) (LABV (l*I1),le|*1)*TAB(!DX*I1) 


221 

160 CONTINUE 


224 

C 


225 

170 IF(TYPE,EQ.| ) GO TO 2|0 


226 

:c 


227 

C ***** .COEF I C TENT . 'TABLE INPUT 


228 

C 


229 

REAO(5*5050) ( XTAB ( I ) « lal »Ny) 


210 

DO 175 11 x | ,HV 


211 

KMUROI a KMUROI 1 
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INTAB 


212 

311 

zm 

'215 

216 

217 

218 
219 

240 

241 
'242 
241 

244 

245 

246 

247 
2H8 
249 
:250 
• 25 | 
252 
251 
'254 

255 

256 

257 
:258 

259 

260 
26 | 
262 
261 

264 

265 

266 

267 

268 

269 

270 

271 

272 
271 

274 

275 

276 

277 

278 

279 

280 
28| 
282 
281 

284 

285 

286 


289 


TABLE (KMURD I ) s XTAB(II) 

175 'CONTINUE 

IF (HPRT ,EQ. I ) 00 TO 280 
WRITE(6»6|10) 

C 

IF1NV.6T.50) 00 'TO 180 
N I a I 
N2 s NV 
GO TO 190 
C 

180 N2 a NV - 50 

WRITE (6, 6090) (XTAB<l),XTAB(U50)*!*l*N2j 
HI = N2 I 

IF INI .GT. 50) 00 TO 280 
M2 = 50 

190 WR ITE ( 6f 6 1 00 ) ( XTAB ( I j , IaN I »N2) 

C 

C ***** OESCRETE TABLE INPUT 

C 

210 READ(5*5050) (XTAB( I ) , YTABII j . l«l .Ny) 

DO 215 II = I • NV 
KMURDI = KMURDI ♦ I . 

TABLE ( KMURD I ) = XTABMl) 

TABLE!KMUR0I*NV) s YTAB(jl) 

215 CONTINUE 

KMURD! = KMURO) NV 
IF (NPRT .EG, I) 00 TO 1005 
HR ITE (6»6 1 40 ) 

1005 CONTINUE 

IF ( NV. GT.50 j GO TO 220 
HI a I 
N2 s NV 
00 TO 210 
C 

220 N2 = NV - 50 

WRITE (6»6 1 1 0 j C XTAB < X ) * YTABj I ) » XTAB ( 1*50 ) * YTAB ( 1*50 j * I el »N2 j 
N | a N2 ♦ | 

IF INI ,'GT. 50) GO TO 280 
N2 a 50 
210 CONTINUE 

IF (NPRT.EQ. I) 00 TO 280 

WRITE (6*6120) (XTAB( I j t YTAB( I ) « IsN| *N2) 

:C' 

280 CONTINUE 

KURD a KMURDI •-KMUD 

IF (NPRT ,EQ. I.. AND. NPRT2 iNE. 0) WRITE ' (IOT, 6210) NTVTTTLE. 

I ND»NXYT,KWRD 

IF (NPRT..NE. I) WRITE (IOT, 6220) KWRD 
C 

290 CONTINUE 

'.C‘ 

100 IF (KMURDI ,LE, MXWRO) 00 TO 110 
. WRITE(6,6I70) KMURDI 
CALL EXIT , , 

110 IF (OFT ,EO. 0) GO TO 150 
IF (OFT ,GT, 2) IOTaP s OFT 
WRITE (IOTAP) TLAiNV 

WRITE (IOTAP) ( TABLE! JKMj , JKMgl , KMURDI ) 
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INTAB 


:290 END FItE IOTAP 

'29 1 REWIND IOTAP 

i 292 ISO WRITE { I0Tf6l80) KMURDt 

291' RETURN 

, 29W C 

•29S END 
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SUBR0UTINE UQRES 


td 

l 

to 

o 


1 

2 
1 

4 

5 

6 
•T 
0 
9 

10 

11 

12 

n 

14 

15 

16 

17 

18 

19 

20 


28 

29 

10 

11 

12 
11 

14 

15 

16 

17 

18 


•* •* f* 

R0U7INE NAME ■ 

ROUTINE LANS « 
PROGRAMMER 
OATE CODED ■. 


:*■ 

.* 

i* 

>* 

;*■ 

m* REVISED 


programmer 

* * .* .•* f* * * 


. LIQUID RESIDUALS . 
DETERMIMA7I0N ROUTINE '*> 

FORTRAN V UNIVAC 1100 EXEC 2*' 
R. BOLLINGER 1941 102 26911 * 
i S/ 1 S/70 
JULY (972 
J. MCKAY D 1 941 201 

• * * ;»» * * * * * 


NS | 78 * 
* •# 


SUBROUTINE LIQRES 

INCLUDE CTANK 

DIMENSION CST(2»1) 

DATA (CST ( I t I ) » Is | fZ) / |022 
DATA (CST<I,2).I=1.2) / ,001 


*.001S 
* .0008S8 


/ »yu i ? * vwwv > 

DATA (CST ( 1 1 1 ) r I = I >2) / , 0007S* . 000 1 142 / 


21 

C 

***** THREE TYPES 

OF ACQUISITION DEVICES ARE AVAILABLE 

22 

c 



21 

c- 

IDX x | 

SURFACE TENSION DEVICE . 

24 

c 

IDX x 2 

POSITIVE DISPLACEMENT DEVICE 

2S 

c 

IDX x 1 

DI ELECTROPHORETIC DEVICE 

26 

c 



2T 


DO 1000 I|=|,2 



100 

200 

1000 


IDX s SATYPEdll 
IF (I| .EQ. 2 .AND. IDX ,GT, I) GO TO 100 
0XY, SURFACE TENSION ONLY 
IF ( WTOTP .LE. 100000.) GO TO 100 
WLR = 2200. ♦ «008*(WTOTP - 100000.) 

GO TO 200 

WLR (II) := CST( 1 1 1 IDX IRWTOTP (II) 

IF (WLRT(lltl) .GT. WLR(Il)) WLRUl) x WLRT(II.I) 

continue 

RETURN 

END 


LMSC-A991396 



B-205 


SUBR0UT1NE L0CAT 


1 

c 


I#.* *.-*:*-.-* *■•*•* ****** **** *•*•.■*■■*•*• 

z 

c 


•* ROUTINE NAME - LOCATE AND INPUT THE TABLE •*> 

r 

c 


TO BE LOOKEO-UP * 

■4 

c 


'* ROUTINE LANG - FORTRAN v untvac iios EXEC 2* 

S 

c 


■* programmer - r. bollinger 1947 102 26911 * 

6 

c 


’* DATE CODED - 1/9/70 •*■ 

7 

c 


•* » * *;*••* * * ******* ■* •* •* ■*■•* •*• * * * 

8 

c 



9 



SUBROUTINE L0CAT (MNT) 

10 

c 



II 

c 


***** explanation op the CALLING SEOUENCE 

tz 

c 



n 

c 


'* NT - THE TABLE NUMBER WITHIN A MASTER TABLE. THAT IS. 

14 

c 


THE HUMBER OF WORDS TO BE SKIPED TO FIND THE 

IS 

:c 


***** DESIRED TABLE IS 200*(NT-I). 

16 

c 



17 



LOGICAL DIAG 

18 

c 



19 



INCLUDE CIOUNT 

20 



INCLUDE CTAB 

21 



INCLUDE CTABA 

22 

c 



27 



NT a IABS (MNT) 

24 



IF (DIAG(0.6HL0CATE)i WRITE (I0T.6000) NT.MNT.IDXI 

2S 



IOX = IOXI 

26 



NTMI a NT - | 

27 



IF(NTMI.LE.O) GO TO 20 

28 

c 



29 



DO 10 II = I.MTMI 

70 



MM -a | 

7 1 



IF ( I TABLE (!DX*I 1.E9.I j MM R 2 

72 


10 

IOX = IOX MMRITABLE(IDX) 7 

77 

c 



74 


20 

NV = ITABLE(IDX) 

7S 



TYPE = ITABLE(IOXtl) 

76 



HIP a ITABLE < IDX*2 ) 

77 



IDX = IOX ♦ 2 

78 

c 



79 



DO 10 II :s |,NV 

40 



IDX = IDX ♦ 1 

41 



IF (MNT ,LT, 0) GO TO 26 

42 



XTAB(II) s TABLE ( IDX) 

41 



IF(TYPE.EQ.I) YTAB(II) s TABLE! IOX*NV) 

44 



GO TO 70 

4S 

c 


SWITCH DEPENDENT AND I NDEP. VARIABLES 

46 


26 

XTABUI ) s ’TABLE! IDX*NV) 

4 7 



YTABUI ) ta TABLE! IDX) 

48 


70 continue 

49 



IF (DIAG! I.6HL0CATE)) WRITE (I0T.60C0) NV.’TYPE, NIP,IDX,XTAB{ 1 ) * 

SO 



XTAB(NV) *VTAB( 1 ) .YTABtNV) 

SI 



RETURN 

S2 

6000 FORMAT ( I4X.4IS.6EIS.6) 

Si 



END 
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***** SUBR0UTINE LPR0P 

I SUBROUTINE .LPROPfT,P»D»K,H,StU, 2) 


2 


COMMON /RFPR/ RFU 0 ) 

1 


COMMON /METH/ M 

M 

C 


S 

C » • • • 

routine to calculate the properties of the Liauio 

& 

c 


T 

c 

K =1 INPUT IS T ♦ 0 

e 

c 

K =2 INPUT IS T P 

9 

c 

K a-j INPUT IS T, P» 0 

10 

c 


II 


IF(M.EO,2)G0 TO 1 

12 


:CALL VPROPCT.P»O.K*HfS*U,Z) 

11 


RETURN 

14 

1 

R =RF(S) 

IS 


AKsRF ( 6 ) 

16 


IF ( K ,E0. 1 1CALL PFNO(T,O f P) 

17 


IF(K.EQ.2JCALL DFND fT»P »D»ZI *0) 

ie 


VRsVPN(T) 

19 


CALL nFNO(TiVP,0SV,Z(*2j 

20 


CALL VPROP(T,VPP f DSV. 1 t HSV,SSV,USViZSV> 

21 


VSV = I.O/OSV 

22 


CALL OFND IT* VPtDSL*Z 1 » 1 i 

21 


VSL = 1 .O/DSL 

24 


CALL DPDTVP(T,VP.DPDT) 

:2S 


HSL=HSV-T«0PDT*(VSV-VSL)*AK 

:26 


SSL=SSV+<HSL-HSVI/T 

27 


USL=USV+(HSL-HSV>.(VP*(VSL-VSVn*A(( 

28 


OLD = ALOG(D) 

29 


DLS c ALOG(DSL) 

10 


FID=P*OLD-FImGI rT,D) 

11 


FIS=R*DLS-FINGI (T.DSL) 

12 


F2D=FING2(TtD>*R«T*DLD 

11 


F2S=FING2(T,0SL)+R*T*DLS 

: 14 


S=SSl-(FID-FIS)*Ak 

IS 


UaUSL+( (F20-F2S>-T*(F|D-FIS))*AK 

16 


H=U •+ (P/D I*AK 

17 


.Z = P/(D*R*T) 

18 


RETURN 

19 


END 


z' 
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SUBR0UTINE LPR0PB 


I SUBROUTINE .LPROPB(TBrPB,DB*K.HB,SB,UB«ZB) 


2 

COMMON /RFPR/RF 110) 


r 

HTsRp (?) 


4 

T sTB/1.8. 


<5 

P s PB * 6.894TS72E»T/|.0n2SE*S 


6 

0 :e OB * 4S1.S9217E-1/(WT * 2.8m847E' 

r 

CALL LPR0PCTfP»0,K,H.$fU»Z) 


8 

PB a P ■* 1.0naSE*S/6.8947S72E*'» 


9 

DB a 0^« WT * 2.81I6847F-2/4S1.892J7E-9 

10 

HB s H * 4S1.S9217/(|.0S41SO2E»9 * 

WT) 

n 

UB s U '* 4ST.S9277/(I.0S4IS02E*T * 

«T) 

12 

SB s S * 4S1.S9217/( I.0S41S02E+1 * 

1.8 " 

n 

ZB = Z 


14 

RETURN 


IS 

.END 



2 ) 


WT) 
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SUBR0UTINE LSSCMP 


I SUBROUTINE LSSCMP 


2 

C 


7 

c 

*** THIS SUBROUTINE PROVIDES ECLSS CONFIGURATION COMPONENT 

4 

c 

•* siting and pressure drop data for oxygen and nitrogen 

•3 

c 

*** FLUIDS. 

6 

c 


7 

c 


B 


INTEGER 'GSTATE 

9 

c 


10 
1 1 


.LOGICAL RAGE, JR 

12 

c 


17 


INCLUDE :CACCUM 

m 


INCLUDE CCNFIG 

IS 


INCLUDE CCNTRL 

16 


INCLUDE CDCYCL 

17 


INCLUDE CECLSS 

18 


INCLUDE CENG 

19 


INCLUDE CHEX 

20 


INCLUDE :CHSORC 

21 


INCLUDE CIOUNT 

22 


INCLUDE :CNA!!ES 

27 


INCLUDE CONST 

24 


INCLUDE CTANK 

2*3 

c 


26 

c 

***** INITIALIZE THE ROUTINE 

27' 

c 


28 


IOX = 0 

29 


ISIGN r 1 

70 


JKM s 0 

11 


NIENTH = 0.0 

72 


WGGTOT ( 1 ) '= 0.0 

77 


WGGTOT (2 ) = 0. 

74 


HFTOT( 1 ) :a 0.0 

7S 


HET0T(2) S 0.0 

76 


DTREO ( 1 ) = 0.0 

17 


0TPE0(2) = 0.0 

78 


Cl = 1 tS2.0/(GRAVTY*Pt**2) 

19 


IF ( PAGE (0 ) ) WRITE (I0T.60S0) 

40 


HRITE ( I0T ,6020 1 

41 ‘ 


JP = PAGE (7) 

42 

O 


47 

c 

***** start of configuration processing loop 

44 

c 


4*3' 


DO 1000 ItsIrtCNF 

46 


IDX = IDX ■♦ ISIGN 

47 


MACH(IDX) = 0.0 

48 


MFLG(IDX) = 6H 

49 


CALL GETCON(IOX) 

SO 

:C 


SI 

C 

***** BRANCH TO THE REQUIRED CONFIGURATION TYPE, SEE CCNFIG' 

S2 

:C' 

***** FOR BRANCH DEFINITIONS. 

S7 

c 


S4 


00 TO ( 100,200,700,400, 4S0»S00,4SO,4S0»400»40Sr60O»'700»80O»900, 

ss 


1 270,2S0,270tl 100), CFUNCT 

S6 

c 


ST' 

.c 

***** SETUP THE GAS TYPE ***** 
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.LSSCMP ******** 


•58 

c 



•59 


100 IGAS e CFTYpE 


60 


G STATE = KNFIGI8) 


6| 


IF (IOAS .EO. JKM) 0070 110 


62 


1 JKM = IGAS 


61 


ISIGN = 1 


64 


ISTRT ( IGAS ) = IOX ♦ 1 


68 


JX = 0 


66 


MO CONTINUE 


67 

c 



68 


IF ( IGAS.EQ. 2.AND.GSTATEiE0, | ) GO 

TO III 

69 


GO TO 112 


70 


Ml, !F(PAGE(0j j WRITE <IOT»608lj 


71 


WRITE ( 107 »6020 ) 


72 


UP = PAGE(1I 


77 

c 



7*4 


M2 CONTINUE 


7*5 

c 



76 


IF(II.EQ.l) GO TO 999 


77 


IFIIGAS.EG. 2. ANO.GSTATE jEO. | ) GO 

TO 999 

78 


PRES ( IOX ) 3 PRES | IOX - ISIGN) 


79 


'WOOTN(IDX) is WOOTNIIOX-ISIGN) 


80 


, TEMPdOX) ia TENPdDX - ISIGN) 


81 


GO TO 999 


82 

c 



81 

c 

***** PROCESS THE ECLSS ***** 


84 

c 



88 


270 WOOTNdOX) C WDOTJ (IGAS) 


86 


PRES(IOX) :s PLSNOM( IGAS) 


87 


i TEMP ( IPX ) :s TLSNOM(IGAS) 


88 


GO 70 99* 


89 

c 



90 

c 



91 

c 



92 


100 FLD s FRCOEFI IDX)*LOD( IDX1/0IAH(IDX| 

91 


LOV a CFTYPE/ 10 


94 


CFTYPE = cetype - 10V * |0 


98 


110 WOOTNdOX) := WOOTNdOX-ISIGNi 


96 


TEMPdOX) •= TEMPdOX-ISION) 


97' 


'GO TO 810 


98 

c 



99 

c 



too 

\C 



101 


400 FLD s FRCOEFdDx>*LOOdE>X) 


102 


:10V a CFTYPE /I0 


101 


CFTYPE s :CFTYPE - IOV •*' |0 


104 


DlAMdOX) - AMINMDlAM(lDX»l)»OlAM(jOX-M) 

108 


GO TO 710 


106 

c 



107 

c 

PROCESS A REGULATOR ***** 

108 

c 



1 09 


408 FLO a FRCOEFI IOXI*LOO( IOX) 


1 10 


IOV :c CFTYPE / 1 0 


111 


CFTYPE a .CFTYPE - 1DV -*' jo 


11:2 


'OIAM(IDX) a AMINI(OlAM(l0X*l)»OlAMMOX-IJ) 

111 


WOOTNdOX) a WOOTNIIOX-ISIGN) 


1 14 


TEMP (IOX) s TEHP(IOX-ISIGN) 


1 18 

:C 
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###*#*#* 

LSSCHP ******** 

1 16 



IX 5 I0X •- ISIflN 

117 



IF(APRESUGAS) .EQ. 0.0) 00 TO 406 

H8 



DLPRE6 := (APRES(IGAS) - ANDELP ( IGAS ) /2, 0 j •• PRES^Ixi 

1 19 



PRES(IOX) = PRES(IX) IS ION '* DLPREG 

uo 



GO TO S6) 

121 

c 



122 


406 

CONTINUE 

123 



DLPREG = HEXCOPd, IGAS) - PRES(IX) 

1 24 



PRES(IOX) = PRES ( IX) ISI6M* DLPREO 

125 



GO To S6I 

126 

c 



127 

c 


***** PROCESS A riTTING ***** 

128 

c 



129 


450 

FLO s FRC0EF1 I0X) *L00(I0xj 

130 



LOV = CFTYPE/IO 

1 3 1 



CFTYPE = CFTYPE - LDV * 10 . 

132 



OlAM(lOX) = AMINl <0lAM(lDX*l )»OlAM( lDX-1) ) 

133 



GO TO 310 

134 

c 



1 33 

c 


***** process a tap ***** 

136 

c 



137 


Jl 

O 

o 

WDOTN(IDX) -S WDOTT(IGAS) 

138 



LDV •= CFTYPE/IO 

139 



CFTYPE = CFTYPE - LDV * |0 

140 



FLO = FRCOEF<IDXI*LOO(IOX) 

|4| 



TEMP ( I DX ) = TEMPI IDX-ISIGN J 

142 



DIAM(IOX) 3 AMIN| (DIAMIIOX+I j .01 AMI I0X- I ) ) 

143 

c 



1 44 

c 


***** COMPUTE LINE, CONTROL* FITTING OR TAP DELTA PRESSURE, 

145 

c 



146 


610 

IX = IDX - ISIGN 

147 

c 



148 

c 


***** DELTA PRESSURE WHEN GASEOUS 

149 

c 



ISO 

c 


CALC. RHO OF GAS 

IS 1 


o 

M 

IT 

IF (IGAS.EQ.2) GO TO 521 

IS2 



CALL DENSON (TEMP (IX), PRES (IX), I, RHO, 2E0) 

1 S3 



GO to 522 . 

IS4 


S2I 

CALL DEN SON (TEMP (IX)tPRES(IX), 1 8,RH0,IEN) 

155 


S22 CONTINUE 

IS6 

c 



157 



OELP := Ct*r.UD*(wOOTN(!X)/CNOPERy**2/(RHO*D|AM(!OX^*4) 

IS8 

c 


* 

IS9 

c 


***** IF PCT. OF PRESSURE CHANGE EXCEEDS ONE PCT; — RECOMPUTE 

: 160 

c 


***** DELTA'P, IF NOT, COMPUTE THE NEW PRESSURE 

161 

c 



162 



IF(DELP/(PRES(IX) ♦ DELPj - 0.01 )660<;S60.530 

163 

.c- 



164 

c 


:CALC. RHO OP GAS 

165 


530 

IF ( IGAS.EQ.2) GO TO S3 1 

(66 



CALL DENSON ( TEMP ( IX) ,PRES ( IX j*DELP/2.0» 1 »RHO, IEO j 

167 



GO TO 532 , 

168 


631 

CALL DENSON (TEMP (IX), pres ( IX >+oelp/2.o, I8.RH0.IEN) ' 

169 


632 

CONTINUE 

170 

c 



171 



DELP :s CI*FLD*(WD0TN(IX)/CN0PER>**2/(RH0*DIAM(I0X)**4) 

172 

c 



173 

c 


***** AGAIN CHECK PCT. OF PRESSURE CHANGE. IF PCT^ EXCEEDS 


LMSC-A991396 



B-211 


LSSCMP, 


********* 


******** 


i 


i 


i 


I 


) 


174 

1 7 5 
IT6 

177 

178 

179 

180 
181 
182 
181 

184 

185 

186 

187 

188 

189 

190 
I9| 
192 
(91 
194 

1 95 
196 

: 197 

198 

199 

200 
-20 | 
202 
201 
:204 
•20S 
206 

207 

208 
:209 
■210 
:2 1 1 
2!2 
211 
214 

2 IS 
216 
217 
'218 

219 

220 
22 1 
222 
221 
:224 

22 5 

226 
:227 
228 
229 
210 
an 


C * 2.8 PCT, COMPUTE THE DELTA-P 07 USE OF 'THE COMPRESSIBLE 

C ****9 PLOW EQUATIONS, <REF,-RPb»TDR«64*2S* VOL. I *R£V.O) 

C 

!F(OELP/(PRES(IX> OELPj - 0,028)S60*S60<S40 
C 

540 A = P 1*0 I AM! I OX) **2/176.0 
IF ( IGAS.EQ.2) GO TO S4 t 

CALL C0MFL0( IDX*PRES{IXj f TEMP(tX).FLD,A*WD0TN(IX)7CN0PERt ItDELP) 
GO TO S42 

541 CALL COMPlO( lDX*PRES(IXj ,'TEMP ( I X ) *FLO» A.WDOTNI JX j/CNOPER* I 8 . DELP j 

542 CONTINUE 
C 

PRES(IOX) := PRES(IX) ♦ ISIGN * OELP 
GO TO S6I 
C 

C .9**9* COMPUTE NEW PRESSURE 

C 

560 PRES(IDX) s PRESdxj ♦ ISIGN*OELP 

c 

C ***** COMPUTE THE GAS MACH NUMBER 

C 

C CALC. RHO OF GAS 

IF (IGAS.EQ.2) GO TO SSI 

:CALL DENSON (TEMP ( IX) yPRES! 1DX j , I *RHOt KO) 

GO TO SS2 

551 CALL DENSON (TEMP (IXjfpRES(IOX)« f 8*RH0» 2EN ) 

552 CONTINUE 
C 

IF( IGAS.EQ.2) GO TO SS4 
CALL VG VS ( IDX* RHO. I j 
GO TO SSS 

554 CALL VGVS(IDX»RH0,I8) 

555 CONTINUE 

c 

561 .CONTINUE 
C 

:C ***** COMPUTE LINE WEIGHT 

:c 

IF(CFUMCT,EQ.1 j GO TO S62 
IF(CFUNCT.EQ.S) GO TO S62 
IF ( CFUNCT , EQ. 6 ) GO TO S62 
,!F(CFUNCT,EQ.7) GO TO S62 
IF (CFUNCT. EQ. 8) GO TO S62 
GO TO S70 
C 

562 :CALL .LWEGHT( IDXtLDV) 

C 

GO TO 999 
C 

C 9**** COMPUTE CONTROL* FITTING OR TAP WEIGHT 

C 

STO WEIGHT! I DX > sCFTw (DIAM( 10X1 »PRES() OX) * IOV) 

GO TO 999 
C 

c *99** PROCESS an accumulator ***** 

c 

600 PHES( IPX) 3 APRES(IGAS) 

TEMP(IOX) s TEMP(IDX- ISIGN) 


j 
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212 



WDOTM(IOX) x WDOTNdOX - ISISN) 

211 



INDXAC(IGAS) = IOX 

214 



00 TO 999 

215 

C 



216 

C 


***** process a tank or supply ***** 

217 

c 



218 


700 

CFT X 1 

219 



INDXTK< IOAS j = IDX 

240 

c 



24 | 



IF{SIPRES ( IGAS, CFT) j 720,710*720 

•242 

c 


****** IF NO TANK INPUT PRESSURE IS INPUT USE THE VALUE CALC. 

241 

c 


:244 

c 



•24<y 


710 

SIPRES( IGAS, CFT) s PRES ( I0X-ISI6N) 

246 



00 TO 740 

'247 

C 



.248 

c 


***** CHECK THE Tank INPUT pressure aganist the required 

2«9 

c 


** CALCULATED PRESURE, IF THE TANK INPUT PRESSURE IS LESS 

:2So 

c 


-* THAN THE CALC. PRESSURE WRITE A DIAGNOSTIC MESSAGE AND 

2S| 

c 


* set the Tank input pressure = the required pressure. 

282 

:c 


***** IF not CONTINUE WITH calculations. 

281 

c 



284 


720 

IF{SIPRES(IGAS,CFT) - PRESUDX-ISIGNn 710,740,740 

285 

c 



286 


710 

WRITE (6,6000) SIPRES(IGAS.CFT), PRES(tDK»ISIGN) 

287 



00 TO 710 

288 

:c 



289 


740 

PRES(IDx) x SIPRES(IGAS,CFT) 

260 

c 



261 

c 


***** 00 the SAME CHECKS FOR THE INPUT TANK TEMPRATURE. 

262 

c 



261 



IF ( SITEMP ( IGAS , CFT) ) 760,750,760 

264 


750 

SITEMP(IGAS,CFT) x TEMP(IDX-ISIGN) 

265 

:c 



266 


760 

TEHPUDX) x SlTEMp( I GAS, CFT j 

267 

c 



268 



WOOTN(IDX) x HDOTN(IDX-ISIGN) 

269 



WEIGHT ( IDX j s WTTOT(IGAS) 

270 



GO TO 999 

271 

c 



272 


800 

00 TO 1000 

271 

c 



274 

c 


***** PROCESS A HEAT EXCHANGER ***** 

275 

C 



276 


900 

IF(ISIGN;GT,0> GO TO 910 

277 

c 



278 



WRITE (IOT, 6005) ISIGN 

*279 

c 



:280 


910 .CONTINUE 

281 



JX = JX | 

282 



JHX X JX 

281 



WDOTNdDX) x WDOTNtlDX-ISIGN) 

284 



WDOTCF(JX,IGAS) x WDOTN(IDX) 

285 



UCODE( JX, IGAS) = CODE(IDX) 

:286 

c 



287 



TEMp(IDX) x HEXCIT ( JX , I GAS ) 

:288 



DLPRES x HXCDLP ( JX, IGAS ) 

289 



PRES ( IDX )= PRES(IDX-ISIGN) ♦ DLPRES*ISIGN 
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'.290 HEIGHT? I OX) s WHXTOTtJX.IGAS) 

29 1 C 

292 C ■“*** END OF CONFIGURATION PROCESSING LOOP ****** 

291 C 

:29M 999 CONTINUE 

291 IF (.NOT. PAGE(I)) GO TO 1998 

296 C 

297 C “‘ PAGE HEADER HAS BEEN MOVED To STATEMENT GROUP (00 

1 298 C 

I 299 (998 CONTINUE 

>100 KFUNCT >3 FNAHE(CFUNCT) 

>101 HRITE(IOT,601O) KFUNCT . CODE ( IDX ) . CFTyPE.CNOPER.CNSTBY* I SION. I OX* 

102 I !6AS,GSTaTE,FRC0EF(!0X),L0D(!DX),DIAM(1DX), 

101 '2 rTHTCK(IOX),poES(IOXI,TEMP(IOXj,HOOT*|(IOXJ, 

, >104 1 HEIGHT? IDX), MACH?! DX),MFL6(!DX) 

>101 IF (PRESUOX) .GE. 0. .AND. TEHP(TDX) , GE. oi) GO TO 998 

, >106 HRITE ( I OT * 6040) 

, '107 call exit 

100 998 CONTINUE 

i 109 C 

>1(0 200 CONTINUE 

1 >11 | 210 CONTINUE 

! si 12 210 CONTINUE 

>111 1000 CONTINUE 

•114 I 100 CONTINUE 

1M C USED BY HEIGHT SUMMARY OUTPUT 

> >116 KHENO a IDX ( 

>117 KOENO a IHSTT — 2 

>118 C 

i >119 C 

>120 RETURN 

121 C 

>122 C ***** OUTPUT FORMATS 

121 C 

>124 6000 FORMAT? 10 ‘DIAGNOSTIC* TANK INPUT PRESSURE IS LESS THAN THE REGUIR 

' >12S IEO PRESSURE, TAnK PRESSURE SET » REQUIRED PRESSURE, t/tlXCTANK IhP 

>126 2UT PRESSURE a '.P7.2C, REOUIREO PRESSURE b *,FT,2) 

12T C 

>128 6001 FORMATCO RRERROR** ISIGN ai,I1,«THERE IS A CONFIGURATION ERROR'/! 

>129 c 

>110 6010 FORMAT? 10 ‘ERROR* A PUMP WAS ENCOUNTEREO BUT NO TANK- CAN BE FOUND. 

1 til 1 I PUMP CONFIGURATION INDEX NUMBER a > r X 1 > 

>112 C 

>111 6020 FORMATCO F CODE FT NO NS IS IDx G GS FCOEF L/D 

>114 t D1AM ITHICK PRES TEMP HOOT HEIGHT MACH M 

>11S 2FLAG ' /• ') 

>116 C 

, >117 6010 FoRMAT? 2XA1» 2XA6» Il»6I4»'F9.6*El 2.4»2F8,4*2F9»2»F8,4VF8,4*P10.7» 

>118 I1X.A6) 

| >119 C 

>140 6040 FORMAT (T44* **** TERMINATE - NEGATIVE TEMP. OR PRES, >***«) 

14 1 C 

>142 6010 F0RMAT(/T18,'*R* SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAHETE 

>141 IRS •***) 

•144 C 

>141 6011 F0RMAT(/Tl2 f »*** SUMMARY OF COMPUTED SYSTEM CONFIGURATION PARAMETE 1 

146 IRS - CONTD. ■***•) 

>147 C 


i 
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■548 


LSSCMP 

END 


•**$****& 
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SUBR0UTINE LWEGHT 


I 



1 

! i 

c 


'* ROUTINE NAME - LINE WEIGHT COMPUTATION '*' 

1 r 

c 


•* ROUTINE LANG - FORTRAN V UNIVAC 1108 EXEC 2* 

1 

c 


'♦PROGRAMMER - R* BOLLINGER 1941 102 26911 * 

! 9 

c 


! >*■ DATE 'CODED - 1/1 7/TO <*■ 

I 6 

c 


1 '* REVISED .12-17-71 (RFH j 

1 8 

:C 


! 

i 9 



SUBROUTINE LWEGHT { IDXfLDV) 

! lo 

C 


| 

M 

C 


l ••****« EXPLANATION OF THE CALLING SEQUENCE 

i 12 

:c 


l ' '* 

11 

C 


i ***** IOX - INDEX OF THE CONFIGURATION TABLE, 

m 

C 


, 

1 IS 



LOGICAL DlAG 

16 

c 



IT 

c 



! ie 



INCLUDE CCNFIG 

19 



INCLUDE CMATRL 

1 ’20 



INCLUDE :CONST 

1 .21 



INCLUDE TABLOK 

) 22 

c 


1 

1 . 2 ,- 



IF(CMTYPE,LE.9j GO TO 1 

| 24 



IF(CMTYpE.EQ,6) GO TO 90 

21 



IFKMTYPE.EQ.T) GO TO 60 

1 '26 

c 


! 

1 2T 


9 

CONTINUE 

| .28 

c 



1 29 

c 


i ***** .LOOK UP FTU <Slj FOR LINE 

■10 

c 



1 11 



IF(OIAG{ 0 , 6HLWEGHT) ) WRITE (6»6000) RHOL(CMTYPE) *RHOI {CMTYPE} 

12 

• C' 



11 



CALL FINTAB ( NTBID ( 1 8 >*CMTYPE ) 

1 .14 



XTAB ( | )STEMP ( IDX ) 

'll 



SI a MIRE( | , XTAB) 

1 :16 

c 


'1 

1 ,T 

c 


***** COMPUTE THE THICKNESS FOR FTU 

1 '18 

c 


1 

1 19 



THKL b PRES ( IDX )*DIAM( IDX)*2,9/(2,0*Slj 

: 4o 

c 


. 

1 'll 



JKM :S 0 

1 92 



IF, IPRESIIOX) ,GE, 1000.) JKM s 1 

1 -mt 



IF; (PRESUDX) .GE. 1000.) JKM s 10 

I 44 



IF| CTHKL ,LE. MINTHKtCMTYPE+JKM)) THKL 8 MINTHKtCMTYPE*JKM) 

41 

c 



•46 

c 


| ***** COMPUTE THE WOT/FT FOR THE TUBING OR PIPE MATERIAL' 

-MT' 

c 


, 

■48 



WGTFT s PI •* OIAM(IDX) * THKL •* RH0L<CMTYPE»/I44,0 

49 

c 



1 '90 



GO TO CT 1 »72*71f T4*79 j »LDV 

■ll 

c 


' 

•92 

c 


i ***** COMPUTE EQUIVALENT LENGTH OF FITTING 

! '91' 

c 


1 

1 94' 

c 


i '** FOR A 4-wAY TEE 

1 '91 

c 



1 96 


T2 

FLOD to 4, T9 * D I AM ( IDX) 

; it 



GO TO 80 
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******** LWEGHT ******** 

58 C 

59 C ** FOR A 1-HAY TEE 

60 C 

61 71 FLOO s 1.75 * DIAM(IDX) 

62 GO TO 80 

61 C 

■64 C '** FOR A 90 DEG. ELBOW 

65 C 

66 74 FLOO a 2.75 * OIAM(IDX) 

67 GO TO 80 

68 C 

69 C ** FOR A 45 DEG. ELBOW 

TO :C 

71 75 FLOO -a 1.75 * DIAM(IOX) 

72 GO TO 80 

71 C 

74 C ***** COMPUTE THE WEIGHT OF A FTTTTNG 

75 C 

76 80 WEIGHT(IDX) = WGTFT * (FLOD/12.) * t.25 

77 C 

78 RETURN 

79 C 

80 C ***** XOMPUTE THE WEIGHT OF A LINE 

81 C 

82 71 WEIGHT(IDX) = HGTFT * LOD( IDXI/I2. 

81 C 

84 C ***** COMPUTE THE WEIGHT OF THE INSULATION 

86 WIUOX) := PI * ITHICK(IOX) * LOO(IOK) '* RHOI {CITYPEi ■*' (DIAM(IDX{ 

87 I ITHICK(I0X)/2.0)/t728.0 

88 C' 

89 IF(DIAG( I *6HLWEGHT) j WRITE ( 6*6000 ) THKL.S t .WGTFT 

90 RETURN 

91 C 

92 50 CONTINUE 

91 :c . .. 

94 C ***** COMPUTE WEIGHT OF VACUUM JACKETED CRES LINE ! (121/1471 

95 -.€■ 

96 AYE I :a 0.217684 

97 BEE I a -6.690I6E-01 

98 HGTFT = I ,0/( ( AyEI )+(BEE( V*DIAM( !Oxl 1 

99 WEIGHT ( IDX ) = HGTFT * LOD(IDX)/IZ. 

too :c . 

101 lF(OjAG( I *6HLWE6HT) )WR(TE (6*6000) AYEI .BEEI *DjAM( IDX) ,WOTFT* 

102 I LODI 10X1 

101 RETURN 

104 C 

105 60 CONTINUE 

106 C 

(07 C ***** .COMPUTE WEIOHT OF VACUUM JACKETED ALUMINUM LINE (2219) 

108 C 

109 AYE2 :a 0.559277 

110 BEE2 a -2.00888E-02 

111 HGTFT c l,0/((AYE2)*(BEE2j*DlAM(IDx)) 

112 HEIGHT! IDX) = HGTFT * L0D(IDX)/I2. 

m e 

|I4 IF(0IAG(I,6HLWEGHT)) WRITE(6*6000) AYE2*BEE2«0IAM( IOX) *WGTFT* 

I 15 I .LOD(IDX) 
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i 

I 


1 16 C 

! I fT RETURN 

M8 C 

119 6000 FORMAT ( l +'»l4XtSEI t >.8) 

. 120 END 


i 

i 

i 

I 


\ 


i 

i 


i 


\ 


LMSC-A991396 



SUBR0UTINE MATHAX 


I SUBROUTINE pUMpEF IKUpj 


2 

C 

INCLUDE CIOUNT 

4 


INCLUDE SPUMP. LIST 

S 


INCLUDE TABLOK 

6 

c 


r 


DIMENSION PCR IT ( 2 ) * CRTMP { 2 1 

a 


OIMENSION CTI(2»*CT2t2)tCT1(2jtCT4r2)fCTSt2)* 

9 


1 CWI (2 ) »CW2(2) *CW1(2) »CM4f2) »CW9(2) 

10 

c 

1 1 


DATA PCRIT 7711.179,187.906/ CRTMP/ 278.217,99.196/ . 

1:2 


DATA CT | /.|,.1/ CT2 7.8, ,82/ CT1 /.48, .92 1 / , CT4 /.972k.4|4/ 

M 


1 CT9 / .-2189, .2689/ CWI 7.11, .212/ CW2 /.8I,.T9/ CHI /. 19, .498/ 

m 


2 CW4 /. 0016, .000121/ CHS /0.». 00911/ 

IS 

c 

FORMAT ( ' 0 ' 20X ' *** TCR(MIN) > TCR ( MAX 1 CHANGE DESIGN POINT ***«> 

16 

6001 

IT 

c 


■ e 

c 


19 


DO 100 «s|,KUP 

20 


NSG = NSC ♦ DNS/XNS 

21 

c 


22 

c 

CALC. SPECIFIC SPEED (NSS) 

21 

c 


24 


NSS a NSC*XNS 

2S 

c 


26 

c 

FIND HEAD COEF. PSI a F(NSS) 

27 

c 


28 


CALL FINTAB (NTB1D(|9)J 

29 


PSI :o MIPE ( 1 ,MSS ) 

10 

c 

11 

c 

FIND ADIABATIC EFF. NU7, S P(NSS} 

12 

c 


11 


CALL FINTAB (NTBID(20)j 

14- 


NUZ = MIPE (l»MSS) 

IS 

c 

16 

c 

CALC. IMPELLER TIP SPEED (U) 

17 

c 


18 


U a SORT (12.2RH/PSI) 

19 

c 


40 

:c- 

CALC. IMPELLER DIAMETER 

4 1 

c 


42 


DI a 229*U /NSG 

41 

c 


44 

c 

FIND EFF. QUOTIENT 

4S 

c 


46 


CALL FINTAB (NTB1DI2I j ) 

47 


EFFQ a MIPE 1 1,01) 

48 

c 

49 

X 

CALC, PUMP HYDRAULIC EFF 

SO 

X 


SI 


NU ( K j a EFPQPNUZ 

S2 

100 

CONTINUE 

91 

X 


S4 


RETURN 

ss 

X 


S6 

X 

USED By THE HEATEX ROUTINE 

S7' 

X 
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>58 



ENTRY TCRCAL (THA, THB,TCA.TCB,TCRHN»TCRMX< TERR) 

59 

C 


. CALCULATE TCR MIN 

•60 



TCRA x CTHA-1600. )/( 1800, -TCA) 

•61 



TCRB x (THB-1800, )/( 1800,-TCB) 

68 



IF (TCRA ,LT. 0.) TCRA s 0. 

•61 



IP (TCRB ,LT. 0.) TCRB s 0. 

•64 



TCRMN = TCRA 

68 



IP (TCRA .LT. TCRB) TCRMN a TCRB 

66 

C 


CALCULATE TCR MAX. 

67 



TCRA = (THA-880, I/ISSO.-TCA j 

68 



TCRB •= (THB-850. )/(850.-TCR) 

69 



IF fTCRA.LT. 0.) TCRA s 8000. 

•TO 



IF (TCRB .LT. 0.) TCRB = 8000. 

■71 



TCRMX x TCRA 

72 



IP (TCRA , 0T . TCRB) TCRMX a TCRB 

'71 



IF (TCRMX ,E0. 8000.) IERR x 1 

74 



IF (TCRMN .LT. TCRMX) 60 TO 200 

78 



WRITE (107,600)) 

76 



IERR X 1 

77 


200 

RETURN 

78 

c 



■79 

c 


USED BY THE HEATEX ROUTINE 

■ 80 

c 



81 



ENTRY ENTHOH (PE.TE, KG, ENTMj 

82 



IF (KG .GT. 1 ) 00 TO 100 

81 



.ENTH = 0XENTH (PE.TE) 

84 



RETURN 

; 88 


o 

o 

ENTM x HYENTH (PE.TE) 

•86 



RETURN 

87 

c 



88 

c 


FIND DENSITY OF 02 OR H2 (lift. OR OASf 

89 

c 



90 



ENTRY FONSTY (IG, TEMP, PRES, RHO) 

9| 

c 



•92. 



IF (PRES ,GT, PCRIT(IO) UNO, TEMP . .GT'j CRTMP( IG j | ;G0 

91 

c 


LIOUIO STATE 

94 



CALL RHOLIQ (TEMP, IG, RHO j 

98 



RETURN 

96 

c 



97 



ENTRY GSDNST (IG, TEMP, PRES, RHO) 

98 

c 


DENSITY AND Z RETURNED 

99 



ENTRY GSZONS (IG, TEMP, PRES, RHO, Z) 

100 

c 


GASEOUS STATE 

101 


400 CALL ZFtNO (TEMP, PRES, jG,Z) 

102 



RHO = I44.RPRES 7 ( z«FINDR( IG)«TEMP) 

loi 



RETURN 

104 

c 



108 

c 


USED BY THE HEATEX ROUTINE 

106 

c 



107 



ENTRY TCRCLC (I6AS,F0PC,FPClN,0PH,PHIN,TCRj 

108 

c 



109 



FOPORC x FDPC / FPCIN 

no 



DPOPH a DPH V PHIN 

111 

c 


CALC, TCR FOR 02 OR H2 

112 


490 

TCR X CTI (IGAS)*(FPCIN**CT2(IGAS))/(PHIN**CT1(IGASj) 

Hi 



1 ■* (FDPOPC**CT4 ( IGAS ) ) / (0P0PH*«CT8 ( IGAS ) ) 

114 



GO TO 800 

118 

c 
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116 
I IT 
lie 
ri9 
120 
121 
122 
121 
1 2M 
1 2*5 
126 

127 

128 
129 
110 
111 
172 
111 
im 
lie 
176 

117 

118 
179 

140 
1 4 | 
142 

141 
144 
l u 5 

146 

147 

148 

149 


•MATHAX ********* 

ENTRY WOUACt. (WOUA) 

C 

C CAUC. (W/UA) 

ALPHm a Cw4(IGAS)*FPCIN ♦ Cw5( IGAS)*PHIN 

:c . . 

WOUA :e CWl (IGAS)/((FPCIN**Cw2(t6AS))*(PHIN#*CWltIGAS)))*EXP<ALPHW) 
.C IS TT HYDROGEN 

IF (IGAS ,EQ. I) GO 70 500 
.C FOR H2 ONLY 

WOUA := WOUA / ( (FDPOPC**0.248)*(DPOPM**O, 1656) I 
SOO .CONTINUE 
RETURN 
C 

entry TCRLOW (PPCOUTUGO) 

C LOWER TCR VALUE 

FOPOPC = FDPOPC / 2. 

IF (FDPOPC ,GT, 0.001) GO TO S 1 0 
IGO a 2 

FDPOPC = 0.001 
GO TO 520 
C 

ENTRY TCRRAZ (FPCOUTtlOO) 

C RAISE TCR VALUE 

FDPOPC : a 2.0 * FDPOPC 
IF (FOPOPC ,LT. 0.20) GO TO 510 
IGO a 2 
FDPOPC a 0.'20 
GO TO S20 
510 IGO a I 

520 FPCIN a FPCOUT / ( I ,• FDPOPC) 

FDPC a FP.CIM - FPCOUT 
GO TO 490 

C 

END 
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FUNCTI0N MIPE 


■ 1 

' C 


:*■■■* ■* * * ** I* * *#■.•* *••*•.•*■*■•*■■#• 

2 

c 


ROUTINE NAME - MULTI-TABLE INTERPOLATION 

1 

c 


* AND POLYNOMIAL EVALUATION 

4 

c 


ROUTINE LANS “ FORTRAN V UNlVAC 1 »08 EXEC 2*> 

<5 

;c- 


'* PROGRAMMER - R. BOLLINGER 1941 102 26911 •*• 

6 

c 


' * DATE COOED - 1/1/TO •* 

r 

c 


REVISED - SEPTEMBER 1.|9T1 ••*• 

8 

c 


'* PROGRAMMER - J. MCKAY 19-41 201 X4S|?8 * 

9 

c 


i* * * •■* •* •***«* * »* * • * * ■* *■ * * * * * 

to 

c 



tl 



FUNCTION MIPEINL.XVAL) 

12 

c 



n 

c 


***** explanation of the calling sequence 

' m 

c 



IS 

c 


nl - the NUMBER of levels of interpolation or one 

16 

c 


less than the numbeh of dimensions or the number 

1 IT 

c 


of VALUES in THE ARRAY XVAR, 

IS 

c 



19 

c 


XVAR - AN ARRAY OF INDEPENDENT VARIABLES ON WHICH 

20 

c 


TO INTERPOLATE OR EVALUATE POLYNOMIALS. 

1 21 

c 



22 



LOGICAL OIAG 

21 

c 



1 24 



REAL MIPE 

2S 

c 



26 



INCLUDE :CIOUNT 

f 2T 



INCLUDE CKEYS 

28 



INCLUDE CTAB 

29 

c 



1 io 



DIMENSION .XVAL(6)*YVAL(12),KNT(S)»L{Sj»NTD(6),TAB|(6,S), 

11 



ITAB 1 (6 ,S j 

12 

c 



, ’1 



EQUIVALENCE ( TAB 1 * ITAB 1 , TAB, ITAB ) 

14 

c 



IS 

c 


***** LOCATE THE POSITION IN EACH OF THE FIRST NL-I TABLES OF 

16 

c 


***** THE INDEPENDENT VARIABLE AND STORE THE INDEXES IN KNT, 

1 IT' 

c 



18 



MPX : a 1 

19 


1 

CONTINUE 

, 



IF (0IAG(0,6HMIPE j) WRITE (JOT, 6000) NL, fTAB( 1 , I j , Jef ,S) , 

‘♦I 



1 XVAL{ I ) t !e I ,NL) 

42 



IF (NL.GT , 1 ) GO TO S 

M-J 



CALL LOCAT (MPX) 

44 



NLTBL s | 

«S 



CALL TEL(XVAU| ),YVAL(l)j 

16 



GO TO 220 

4T 


s 

nlmi = NL - 1 

48 



DO TO II •= |,NLMI 

49 



NTABI s ITABI (1,11) 

•SO 



IF(XVAL(I|j - TAB 1 (2* X 1 ) } S0,SO,(0 

SI 


10 

IF ( X VAL (II) — TABI (NTABI +4 , I 1 J ) 20,60,60 

S2 

X- 



SI 


20 

DO 10 12 = 1, NTABI 

S4 



11 s 12 

ss 



IF ( XVAt- ( 1 1 j • TAB 1(12*1,1))) 40,40,10 

S6 


io .continue 

ST' 

c 
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MXPE 


SB 


40 

KNT < I n * 11 - 1 

S9 



00 70 70 

60 

c 



61 


so 

KNTfin s I 

62 



GO TO 70 

61 

c 



64 


60 

KNT11I) S NTABI — I 

6S 


70 

CONTINUE 

66 

,c 



67 

c 


***** compute the table number of the xy tables For 

68 

c 


***** INTERPOLATION, 

69 

c 



•70 



NT a :2**NLM| 

71 



NLT8L = NT 

'72 



00 1 10 I Is | ,NL 

71 


no 

NTDUI) = NT / !M|IW) 

74 

c 


CALC. INTERPOLATION LEVEL COEF. 

7S 



LINLHI ) a 1 

76 



IF (NLMI ,EQ« 0) GO TO 1 2S 

77 



DO 120 I laNLM) , 2»«l 

78 


120 

L(II-I) is L(II) '* ITAB((|»II) 

■79 

c 


COMPUTE THE ID NO. OF THE X-V SUB-TABLES 

80 

c 


USED FOR INTERPOLATION 

81 


I2S 

DO 140 I Id, NT 

82 



KTB = 1 

81 



DO 110 12=1, NLMI 

84 


no 

KTB a KTB ♦ L1I2>* (KNT ( 12 >-l AMOD! I (»| ,NTD( 12) ) /NTD( 12*1 ) ) ' 

8S 

c 


LOOK UP SUBTABLE LOCATION 

86 



CALL LOCAT (MPX«KTB) 

87 

c 


COMPUTE THE YVAL FOR XY-CURVES OR 

88 

c 


POLYNOMIALS 

89 



CALL TEL (XVAL(NL)iYVAL(II )) 

90 



IF (KEV2 ,EQ, KEY | ) RETURN 

91 


140 

CONTINUE 

92 



IF <0IAG(2,6HMIPE jj WRITE <I0T*6000) KNT, NT , ( YVAL { t j * lol *NTi 

91 

c 



94 

c 


***** COMPUTE THE FINAL VALUE OF YVAL 

9S 

c 



96 



00 2(0 11 a NLMI » I ,.l 

97 



KYVAL B 1 

98 



IOXI is KNTHI ) .♦ 1 . 

99 



FAC B (XVaL(II) - TaBMIDXI t II)>/(TABH10XI>l,I!>-T#BMIDXI*ll>) 

100 

c 



101 



DO 200 12 a 1 »NT,2 

102 



YVAL(KYVAL) = (YVAL(I2*lj - YVALl I 2 j j*FAC ♦ YVAL( 12 j 

(01 



KYVAL i» KYVAL 1 

(04 


200 

continue 

I0S 

c 



106 



NT s 2**111.1) 

107 


210 

CONTINUE 

(08 

.c 



109 

C 


***** SET THE ANSWER AND RETURN TO THE CALLING PROGRAM 

no 

c 



1 1 I 


220 

MIPE e YVALl 1) 

112 



IF (0IAG1 1 ,6HMIPE )) WRITE HOT, 6000) NTD»YVAL(I> 

Id 



RETURN 

1 14 

:c 



IIS 

c 


RyMIPE CAUSES INOEP AND DEP'iyAR TO SWITCH 
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I 



MIPE 


1 16 


ENTRY RVMJPE (NL*XVAL) 

in? 

C 

, 

118 


MPX a -I 

lii9 


SO TO 1 

120 

C 

FORMAT (i+i ji*X f r7,'5!Um0XSEH.An 

121 

6000 

<122 


END 



f 

i 


i 

i 
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FUNCTI0N NIENTH 


1 


FUNCTION NIENTH ( PREStTEMP ) 

2 

C 


T 

c 

ROUTINE CAU.S STEWARTS 02-N2 PROPERTIES PROGRAM 

4 

c 


S 


REAL NIENTH 

6 

c 


1 


CALL ONpROP(TENP,PRES,Ox»ENTHIB»SX.UX,tX*t8> 

0 


NIENTH = :ENTHI8 

9 


RETURN 

10 


END 


W 

to 

to 
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SUBROUTINE 0NPR0P 


• 1 


SUBROUTINE ONPROP (TEMP, PRES, DENS, ENTH, ENTR,ENERG,ZEE*NGASj 

i 2 

c 


1 T 


COMMON /METH/ M 

1 4 

c 



c 

INPUT TO THIS SUBROUTINE MUST BE IN BRITISH UNITS 

1 6 

C 


1 7 

C 


1 e 


T8 a TEMP 

I ’ 


PB a PRES 

10 


DB a PENS 

! n 


N : = 1 

; 12 

C 


1 n 


IF(N<3AS,EQ.I) KF a 1 

i m 


IFIN0AS.EQ.I8) KF s 2 

1 is 

C 

1 

1 16 

C 

KF a | CAUL IN OXYGEN PARAMETERS 

1 tr 

C 

KF a 2 CAUL IN NITROGEN PARAMETERS 

1 18 

C 

1 

• 19 


IFIKF.EQ.lj CALL 0ATA02 

20 


IF(KF.EQ.2) CALL DATAN2 

t 21 

C 

• 

1 22 


IFJITB.GT, 0.000). AND. (PB.GT.O. 000)) GO TO 5 

1 21 


IF((TB. GT. 0,000). AND. (OB.GT. 0,000)) GO TO 10 

| 24 

c 


25 

5 

CALL PROPB(TB,PB,DB, 1 ,HB,SB,UB,ZB) 

1 26 


DENS 3 DB 

! 27 


ENTH :s HB 

1 28 


ENTR :S SB 

| '29 


ENERG a UB 

; ,0 


ZEE = ZB 

1 51 

•C' 


1 12 


RETURN 

1 ir 

:e 


1 94 

10 

CALL PROPBCTB, PB,DB,2,HBVSB,UBt ZB) 

95 


PRES :S PB 

i 96 


ENTH a HB 

1 ’7 


ENTR s SB 

98 


ENERG = UB 

i 99- 


ZEE a ZB 

40 

c 


! 4| 


RETURN 

, 42 

:c 


! 4T 


END 


I 


I 


I 
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SUBR0UTINE 0TRTNS 


1 

2 
i 
4 
■5- 

6 

T 

8 

9 

10 

11 

12 
18 
It* 

I *5 
16 
IT 
18 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 
1| 
12 

II 
m 
■is 
16 

17 

18 
; 19 

40 
4 I 
42 

41 
•44 

45 

46 

47 

48 

49 

90 

91 

92 
91 

94 

95 

56 

57 


C 

C GENERAL OUTPUT ROUTINES 

C 

SUBROUTINE OTPHEX 
C 

LOGICAL 'JPfPAGE 
C 

INCLUDE CACCUM 

include :capu 

INCLUDE CCMFIG 
INCLUDE CECLSS 
INCLUDE :CENG 
INCLUDE CFLRAT 
INCLUDE CFUEL 
INCLUDE :CHEX 
INCLUDE CKSORC 
INCLUDE CIOUNT 
INCLUDE CNAKES 
INCLUDE CPUMP 
INCLUDE CTANK 
INCLUDE CTIJRBN 
C 

DAT 4 IDMHX/ MHX/ 

:C' 

6010 FORMAT(IH0.'T19,^** SUMMARY OF COMPUTED HEAT EXCHANGER CHARACTERIS 
( TICS ■*** i //T59 * 1 FOR UNITS * t'TTI* A6 * T91 » A6 j 
6020 FORMAT! IH0.T29, '*** SUMMARY OF COMPUTED HEAT EXCHANGER-GAS GENERAT 
IOR CHARACTERISTICS **♦*) 

6025 FORMAT! IH0.T16, '*** SUMMARY OF COMPUTED HASTE HOT' GAS UTILIZATION 
IPARAMETERS ***' ) 

6026 FORMAT! IH0»T16t *■**« SUMM a RY OF COMPUTED FREON c°°LaNT UTILIZATION 
IPARAMETERS ***' ) 

6010 FORMAT! IH0,'T1Sf '*** SUMMARY OF COMPUTED HEAT EXCHANGER CHARACTERIS 
t TICS — CONTINUED ***' ) 

6040 FORMAT! IH0»T40, '*«* SUMM A RY OF COMPUTED PUMP CHARACTERISTICS FOR T 
I HE SYSTEM ***' ) 

6050 FORMAT! |H0tT16, i*** SUMMARY OF COMPUTED TURBINE CHARACTERISTICS FO 
IR THE SYSTEM ) 

6060 FORMAT! IH0.T16, '**• SUMMARY OF COMPUTED TURBINE GAS GENERATOR CHAR 
IACTERISTICS ***') 

■6065 FORMAT! ///T>*6t • *** ECLS5 ENERGY REOUIREMENTS SUMMARY *** ') 

60TO FORMAT! IH0»T46f i*** INITIAL TANK SIZING CALCULATIONS ***> ) 

6080 FORMAT! IH0 f T47, '*** FINAL TANK SIZING CALCULATIONS ***' ) 

6090 Format! iHo»T47t •*** accumulator sizing calculations **»') 

6100 FORMAT! IH0»T19f '*** TANK PROPELLANT ACQUISITION DEVICE COMPUTATION 

| *** i j 

6110 FORMAT! |Ho»T5 It '*** COMPONENT WEIGHT SUMMARY ***'// T27. OXIDY 

I ZER ...'T87*',.. FUEL / Til*' * T9 I * » -- — >/ T18*'C0MP0N 

2ENT*T52*»INSULATIONiT98,iCOMPONENTrTI 1 2. • INSULATION « / Tl |,'COMPON 
1ENTIT27* 'C0DE'T18* IWT, (LBS j tT52* <WT. (LBS) • TT I * 'C0MP0NENT*T87* 

4 t CODE ' T98 * ' WT. ( LBS ) * T I I 2 1 ' HT, (LBS)'/) 

6112 FORMAT! IH0,'T47* '*** COMPONENT HEIGHT SUMMARY TOTALS ***') 

•6120 format! iho*t52*'*** computed flowrate data ***<) 

6110 FORMAT! IH0.T47, '■*** INITIAL APU PROGRAM CALCULATIONS ***'// 

1 T<*0> ' PERCENT 'T6 1 * r TOT. FLOWRATE 'T85* 'EXHAUST TEMP. i / 

2 T25*'CYCLElTM2*'H.P.'T61r'(LB./MIN t )'T87*MDEG. - R > « / ) 

•6112 FORMAT! T46* 1 *** APU MIXTURE RATIO IS NOW SET aT 1 *F5,2* ' ****/) 
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OTRTNS 


58 

59 

60 
61 
62 
61 

64 

65 

66 

67 

68 

69 

70 

71 

72 
71 
79 

75 

76 

77 

78 

79 

80 
8 1 
82 
81 . 
89 

85 

86 

87 

88 

89 

90 
■ 9 | 
92 

91 
•99 
95 
•96 
97 ' 

98 

99 
100 
101 
102 
101 
109 

105 

106 
|0 7 
108 
109 

no 
in 
112 
111 
119 
1 15' 


6190 FORMAT 124X14 »E20»6»2E24,6j 

•6150 FORMAT! I HO ,751,'*** APU CALCULA7I0NS -CONT. ***«) 

•6160 FORMAT (799 » • *** ApU MIXTURE RATIO IS NOW SET A7 , F5*?** ***«/// 

I , 747,'*** APU SUPERCRITICAL CALCULATIONS ***') 

6161 FORMAT (4XI2.8EI5.6) 

•6162 FOPMATHHO TI4* 'CONDITIONING GAS REQD'T44» iW6T f CONDITIONING GAS 
I' 779. 'CONDITIONING GAS RE0D'TI09. 'WGT. CONDITIONING GAS 

2 ' /T2, 'CYCLE 'T 15. 'ACCUMULATOR TO APU' T45, 'ACCUMULATOR TO APU' 

1 T75. 'TANK TO ACCUMULATOR' Tl 05, 'TANK TO ACCUMULATOR' 

4 7 T6,9(8X'OXVGFN'6X'HYDR06EN' j / 1 

6164 FORMAT! 1 HO 714, 'CONDITIONING GAS PEQD'T94. 'WGT, CONDITIONING GAS 
I' TT4. 'FLOW TO ACCUMULATOR' Tl 01, 'EXHAUST PROD,' 

2 /T2,'CTCLEIT2I,'F0R TANK' 751,'FOR TANK ' T78, ' f EACH CYCLE) ' 

1 TI01, 'SURPLUS '/T6.K8X 'OXYGEN '8X 'HYDROGEN ' )/) 

6166 FORMAT! I HO T 1 6, 'REFERENCE FLOW TO' T49, 'TEMPERATURE OF FLUID' 

1 T75, 'PERCENT OF USABLE' T 1 04. ' HEAT XFR, INTO TANK' 

2 /TZ.'CYCLE'TIB. 'SUPPLEMENTAL fl. G.( T96, 'IN STORAGE TANK' 

1 1 T76. 'FLUID WITHDRAWN' TIOS.'fEACH CYCLE)' 

4 / 76,9 ( 8X 'OXYGEN ' 8X’ HYDROGEN' ) / ) 

6168 ForMAKIHO 716. 'ENERGY DERIVATIVE' 744, 'COR. ConD. GAS REQD^ » 

1 774, 'COR. WGT. COHO. GAS' 

2 /T2, 'C7CLE'T45» 'TANK TO ACCUMULATOR' T74, (TANK TO ACCUMULATOR' 

1 / T6.1(8X'0XYGEN'8X'HYDR0GENI )/) 

6170 FORMAT! IHO 744. 'COR, :CON0. GAS REDD,' T74, 'COR. WGT ^ COND. GAS' 
I/T12, 'CYCLE'TSO. 'FOR TANK' TBO.'FOR TANK' 

2 7 716,2|8X'0XY6EN ' 8X 'HYDROGEN * j / j 

dlTl FORMAT I 14X12, 6E (5, 6) 

6172 F0RMATIT44, ■'*** APU MIXTURE RATIO tS NOW SET AT' F5»'2* ' •**♦/// 

I 748, '*«♦ APU SUBCR1TICAL CALCULATIONS ***» I 

,6174 FORMAT ( I HO TI4. 'CONDITIONING GAS RE00'T94, 'WTG, CONDITIONING GAS 

I' 1 T74. '.CONDITIONING GAS RE0O'T)04. 'WTG, CONDITIONING GAS 

2'/T2,,CYCLEiTI5. 'ACCUMULATOR TO APU» T45, 'ACCUMULATOR TO APU* 

I I 775. 'PUMP TO ACCUMULATOR' 7 1 05, 'PUMP TO ACCUMULATOR ' 

4 7 76. 4 < 8X • OXYGEN ' 8X 'HYDROGEN ' ) / ) 

C 

NIENTH a 0.0 

C 00 0U7PU7 FOR ALL HEAT EXCHANGERS 

C 

I DM2 X 2*I0MHX 
IDM1 x 1CI0NHX 
I DM6 a 6*IDMHX 
00 140 JXs | ,NUMHEX 
KVL = 0 

IF (NSUK<UX,n,EQ.O> KVL s KVL ♦ I 
IF ( NSUK!JX,2).EQ,0) KVL a KVL ♦ 2 
MVL e 1 - KVL 
IF (MVL.EQ.O) GO TO 140 

IF (PAGE( Oj) WRITE (107,6010) UCODEfJX, I ) ,UCODE( JX.2) 

UP s PAGE ( IT) 

CALL SPACE 

CALL OUTPA <S,LHX1,HVL,jFLUlD,JPLUl5i|,2)) 

CALL SPACE 
C 

00 100 I2sl , 1 1 

U5M a (I2-I)*IDM2 ♦ JX 

JLM x JSM ♦ IOMHX 

CALL OUTPF !4»LHX2!l,l2j,MVL»UOTHX!jSM)»UOTHXIJLM)j 


X 
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0TRTN5 .A******* 


I 16 
I IT 
118 

119 

120 
12 1 
(22 
121 

124 

125 

126 

127 

128 
129 
(10 
111 
112 
111 
114 
ns 
116 

117 

118 
119 

140 
14 | 
142 

141 

1 44 

145 

146 

147 
146 

1 49 

150 
(SI 
IS2 
1ST 
!S4 

155 

156 
IB7 
IS8 
IS? 
160 
1 6 1 
(62 
161 

164 

165 

166 

167 

168 

169 

170 

171 

172 
171 


100 CONTINUE 

dl a NSSK ( JX* I j - I 
J 2 a NSSK(JX» 2 ) •- I 
MXNSU = NJUKtjX, ( ) 

IF (MXNsU »LT, NsuK(JXt 2 )) MXNsu a NsuK(JX, 2 ) 

DO 120 I 2 a I , MXNSU 

IF ( PAGE (II)) WRITE ( 107 , 6010 ) 

Jl a j| + | 

Kl a I 

IF fjl ,EQ, I .AND. IISU(jX,I) . 87 . 7 ) Kl sO 
J 2 s J 2 ,1 
K 2 *1 

IF (J 2 ,EQ, | .AND. IISU(JX, 2 ) . 61 . 7 ) X 2 a 0 
NVL a 0 

IF <JI .LE» NSSK(JX, I j+NSUKf JX, I )-l ) NVL a NVL*< 

IF ( J 2 ,LE. NSSK(JX, 2 )aNSUK< JX, 2 )-I ) NVL a NVL *2 
CALL SPACE 

CALL OUTPA ( 4 » LHX 1 ( 1 , 10 ), NVL, UN AH ( 1 ,J|,KI)»UNAM(| , J 2 +K 2 ) ) 
CALL SPACE 
DO l |0 Hal , 8 

JSM s (I 1 -I)*IDM 6 ♦ ( J I « I j * I DMHX ♦ JX 

JLM a (I1.|)*IDM6 ♦ (J2-|)*IDMHX ♦ I DM1 ♦ JX 

CALL OUTPF ( 4 ,LHXI(l*! 1 ),NvL»U 0 THYCJSM),U 0 THY<JLM>) 

I 10 CONTINUE 
120 CONTINUE 

IF ( PAGE < 2 )) HRT 7 E (I 0 T, 601 Q) 

CALL SPACE 

call OUTPF ( 4 .LMXI ( I , 9 j *MVL,WHXTOT< JX* I j ,WHXTOTI JXf 2 ) ) 

JP a PACE (| 0 ) 

JSTVP a HSTYPC(JX, 2 ) 

IF ( JSTYP.EQ. 2 ) GO TO I 2 S 

WRITE t IOT , 6020 ) 

CALL SPACE 

CALL OUTPA (S.LHS | , MVL, JFLUID, JFLU!D( 1 , 2 )) 

CALL SPACE 

CALL OUTPF (S,LHS I ( I * 2 j »MVL, WDOTHf JX, I j » WDOTHf JX* 2 ) j 
CALL OUTPF (S.LHSM t, 1 ),MVL,WGGFX( JX, I ),WGGFX( JX. 2 ) ) 

CALL OUTPF (S,LHSI(I, 4 ),MVL,HSWGHT)JX,M,HSWCHT(JX, 2 )) 
CALL SPACE 

CALL OUTPF (S,LHS | ( | , 6 j »MVL»HXASSY{ JX, I j .HXASSY ( JX* 2 } j 

IF ( JSTyP .EQ. I) GO TO 140 

I 2 S CONTINUE 

WRITE ( I 0 T» 602 S) 

CALL SPACE 

CALL OUTPA (S,LHS 2 (I» 6 ), MVL, JFLUID, JFLUIDd. 2 ) j 
CALL SPACE 

CALL OUTPF (S*LHS 2 MH )*MVL,HSGCPE{JX,M,HSGCPE(JX» 2 j) 
CALL OUTPF (S,LHS 2 ( I , 2 ) ,MVL,HSGREQ< JX, I ) .MSOREQI JX, 2 ) ) 
CALL OUTPF (S,LHS 2 (|, 1 ),MVL,HSGT 0 T(JX, I ) ,MSGTOT( JX',' 2 ) ) 
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OTRTNS 


,174 

X 

ifTS 


176 


ITT 


,178 


;|79 

c 

1 BO 


I8| 


'182 


183 


184 

c 

lies 


186 

c 

1ST 

c 

188 

c 

|l 89 


,190 


I’l 


•192 


193' 


194 


19S 


196 


|l 9T 

c 

198 


'199 


:200 


:20| 


;202 


;203 


■204 


|20S 

c 

:206 


i20T 


208 


•209 


210 


;21 1 


'212 


[213 


:2I4 

c 

;2IS 


216 


,2 IT 


,218 

X’ 

'.219 


:220 

x 

221 

c 

.222 


|22T 

c 

:224 

■C’ 

i'22S 

C 

:226 


:227 


228 


229 


'230 


231 



IMO CONTINUE 

IF (PAGE < <j)) WRITE (!0T,6030) 

CAUL SPACE 

CAUL OUTPF i(S»UHS J ( 1 »S) ,3,WGGT0T ,WGGTOT (2) ) 

CALL SPACE 

CALL OUTPF (S*LHS2(|»lO,3,8TREa(l),QTREa(2) j 
CALL OUTPF (S*LHS2(t»S),3,HFTOT(l).HFTOT<2)) 

RETURN 

ENTRY OTPHXF 

'***' OUTPUT FUEL CELL HEAT EXCHANGER PARAMETERS 

1DM2 s 2MDMHX 
DO IM| JX s IfNUMHEX 

IF(PAGE(on WRITE(IOT,6010) UCOOE1JX* | ),UCOOE( JX,2) 

JP ;•= PAGE (17) 

MVL s 3 
CALL SPACE 

CALL OUTPA (S.LHX3*MYL» JPLUIO* JFLUIDI 1.2)) 

CALL SPACE 

DO 142 12 s |,8 

dSM := ( 12- 1 ) * I0M2 ♦ JX 

JLM tt JSM I0HHX 

CALL OUTPF m.LHX2< I « 12) ,MVL*UOTHX ( J5M > ,UOTHX ( JLM ) J 
142 .CONTINUE 
CALL SPACE 

call OUTPF (4».LHXI (1,9) *MVL» WHXTOT( JX, | j * WHXTOT( JX*2 j j 

WRITE ( IOT ,6026) 

CALL SPACE 

CALL OUTPA (S,LHS2( I »6)*HVL*JFLUID» JFLUID( 1,2)) 

CALL SPACE 

CALL OUTPF (S,LHS2( ) , I ) ,MVL,HSGCPE( JX, | ) »H5GCPE( JX,2) j 
CALL OUTPF (S,LHS2(l,2),MVL,HSOREO(JX,l),HSORFO(JX,2)) 
CALL OUTPF ( S,LHS2 (1,3) ,MVL,HSGTOT ( JX , I ) , HSGTOT ( JX ,2 ) ) 

141 xontinue 
CALL SPACE 

CALL OUTPF (S»LHS2(l*4J,r»aTRE0(l),QTRE0(2)j 
CALL OUTPF (S,LHS2( I ,7) »3,WqTFMX .WdTFMX ) 

RETURN 


ENTRY OTPHXE 

'*** OUTPUT THE ECLSS HEAT EXCHANGER PARAMETERS’ 

J0M2 9 :2*I0MHX 
PO 141 JX = UNUMHEX 

IF(PA0E(0)) WRITE(IOT,60IO) UCODEIJX, (),UC00E(JX,2) 

JP a PAGE (IT) 

MVL b 3 
CALL SPACE 
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212 



CALL OUTPA(5*LHX1,MVL, JFLUID* JFLUID( | ,1) j 

211 



CALL SPACE 

214 



00 144 12 = 1*2 

215 



JSM = (I2-| ) * I0M2 ♦ JX 

216 



JLM = JSM ♦ IDMHX 

217 



CALL OUTPF (4*LHX2( U 12) ,t1VL,U0THX I JSM) ,UOTHX ( JLM) ) 

218 


144 XONTINUE 

219 

C 



240 



.CALL OUTPF (4*LHx2( 1 *4 ) * MvL*wDOTCF( JX* 1 ) ,WD0TCF( JX*«i 5 

24| 



CALL OUTPF (4*LHX2( 1*12) *MVL*UOA( JX* l)»UOA(JX,?)J' 

242 



CALL OUTPF (4,.LHX2( 1 * I1),MVL.0H( JX. I ),0H(JX*2)) 

241 



CALL OUTPF <4,LHX2( I * 14) ,MVL*HLNSTH( JX, 1) ,HLNflTH{JX,2)i 

244 



call SPACE 

245 



CALL OUTPF (4*LHX 1 ( 1 ,1) ,MVL*HXC0LP( JX* I j ,HXCDLP( JX,2) j 

246 



CALL SPACE 

247 



CALL OUTPF (4*LHX| ( | ,9 j * MVL* WHXTOT ( JX, | ) , WHXTOT t JX*2 j j 

248 



CALL SPACE 

249 



CALL OUTPF (5*LHS2( 1,2) *MVL*HSQREQ( JX, | ),HSQREQ(JX,2^j 

250 


141 

CONTINUE 

251 

C 



252 



RETURN 

251 

c 



254 



ENTRY OPTPOW 

255 

c 



256 

c 


*** OUTPUT THE POWER REQUIREMENTS SUMMARY 

257 

:c 



258 



WRITE ( I0T,6065 ) 

259 



CALL SPACE 

260 



CALL OUTPF 1 (5, LHS2 (1,8) , HWTOMX ) 

26| 



CALL OUTPF 1 (5, LHS2 (1,9) , HWTNHX ) 

262 



CALL OUTPF 1 <5,LHS2(I,IO),TWTOMX) 

261 



CALL oUTPFI <5,LHS2 <I,II),TWTnHX) 

264 



CALL SPACE 

265 



CALL OUTPFI (5*LHS2< 1 * 1 2 j *TOTWMX) 

266 



CALL SPACE 

267 



CALL OUTPFI (5* LHS2( 1 » 1 1 j ,TOTWAT) 

268 



CALL SPACE 

269 



CALL OUTPFI (5,LHS2( 1 » 14 j*TOTPOW) 

270 

c 



271 



RETURN 

272 

c 



271 

c 



274 



entry otppmp 

275 

c 


OUTPUT PUMP PARAMETERS 

276 



IF fPAGE* Oil WHITE (IOT,6040) 

277 



JP = PAGE (21 ) 

278 



CALL SPACE 

279 



CALL OUTPA (4»LPP5,1»jF|.UIB* JFlUIO( I ,2) j 

280 



CALL SPACE 

28 1 



DO 200 1: | *6 

282 



12 = 2*( I«l >♦! 

281 



CALL OUTPF < 1»LPP 1(1*1 ) ,1»U0TPI ( 12 ) ,UOTR! ( 12*1 ) ) 

'284 


200 

CONTINUE 

285 



CALL SPACE 

286 



CALL OUTPI (4,LPR2.1,PSTA0E,PSTAGE(2) j 

287 



DO 2|0 1=1,6 

288 



12 = 2 * ( I- 1 ) ♦ 1 

289 



CALL OUTPF (1,LPP1(I*I)» 1»U0TP2( 12) ,U0TP2( 12*( ) ) 
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290 
•2<M 
292 

291 
294 
29V 
:296 
297 ' 

298 

299 
'100 
101 
102 
101 

104 

105 

106 
107 
: !08 

109 

110 
111 
112 
111 
,114 
US' 
116 
117 
,118 

119 

120 
121 
,122 
121 
124 
121 
126 

127 

128 
129 
110 
111 


■114 

ns 

*116 

117 

118 
',119 
1140 
'14 1 
'142 
'14V 
144 
14*> 
'146 
147 


210 CONTINUE 
CAUL SPACE 

CALL OUTPI (4»LPP4,1» JJOPT, JJOPT( 2) j 
RETURN 
C 

ENTRY OTPTRB 

O 00 OUTPUT FOR TURBINES 

JP * PAGE (|9) 

WRITE (IOT,60S0) 

CALL SPACE 

CALL OUTPA (4,LT8NI,1,JPLUID»JFLUI0(t,2) j 
CALL SPACE 
DO 100 X= | r<> 

12 '= 2*<I-I>*I 

CALL OUTPF (S,LTBN2( I, I ) , 1.U0TB l( 12) ,UOTB I ( 12*1 ) j 
100 CONTINUE 

WRITE (IOT»6060) 

CALL SPACE 

CALL OUTPA (If LHS I ,1* JPLUIO* JFLUIDI 1*2)) 

CALL SPACE 
00 110 I=|,l 
12 a Z* < !• I )♦! 

CALL OUTPF (S, LHS I ( I * If I j , 1,U0TB2( 12) , U0T82( 12* I j j 
110 CONTINUE 
RETURN 
C 

entry OTPTSZ ( 1FLG) 

C OUTPUT TANK SUING PARAMETERS 

JP a PAGE (0) 

JP a PAGE ( 17 ) 

IF IIFLG ,EQ. 2) 60 TO 400 
WRITE HOT, 6070) 

GO TO 410 

400 WRITE (107,6080) 

4 10 CALL SPACE 

CALL OUTPA ( I »6H , 1, JFLUI D« JFLUIO ( 1,2)) 

CALL SPACE 

CALL OUTPI (1,LTZ|(|,| ),1VN0P «NOP (2,|)j 

CALL OUTPI (!,LTZ 1(1,2) , 1, SMTYPE,SHTYPE (2,1)) 

IF (IFLG..EQ. 2) 

ICAll OUTPI ( l.LTZI ( I »1) »1»SITYPE*SITYPE(2'* 1 1 1 
CALL OUTPF (1«LTZI(I»4),!*WPT0T .WPTOT (2) ) 

CALL OUTPF ( 1,LTZ I 1 1 ,1 ) ,1*SVLFL0, SVLFLD ( 2 ) ) 

CALL OUTPF (1,LTZI|I,I4),1,TCYHT,TCYHT (2) ) 

CALL OUTPF (!»LTZI(l,6),1»SMDIAM,SMDIAM(2.|j) 

.CALL OUTPF (1,LTZ| (1,7), 1,TSA ,TSA (2,1)) 

CALL OUTPF (1,LTZI( 1,8), 1,SV0L ,SVOL (2,1)) 

;CALL OUTPF ( 1.LTZ 1(1,9) , !,TWT ,TWT (2,1)) 

IF ( IFLG .EQ. 2) GO TO 420 

CALL OUTPF ( !*.LTZ I ( I , 1 2) , 1 .SHRATE, SHRATE (2, I j ) 

GO TO 410 

420 CALL OUTPF (!*LTZ| ( I , 1 0 ) , 1 . SITHIK, S ITHIK ( 2, I j ) 

CALL OUTPF (1,LTZ I ( I , I I ) , 1VT1WT ,TIWT (2,1)) 

•C 

410 RETURN 

c 

ENTRY OTPACC 
C 


OUTPUT ACCUMULATOR DATA 
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148 


IF <PAGE< oi i WRITE U0T,6090i 

149 


JP > PAGE (16) 

■iso 


CAUL SPACE 

IS! 


CALL OUTPA ( 1 *6H tl, JFLU1D* JFLUIDI 1 *2) ) 

1S2 


CALL SPACE 

isi 


DO S00 1=1*1 

: 1S4 


12 a 2*{ I- 1 )♦! 

1SS 


S00 CALL OUTP! ( 1»LTZI ( 1 , I ) ,1*EQAC( 12) ,EQAC< 1241 

1S6 


CALL OUTPF ( l.LTZ 1 ( ! # 14) #1*ACYHT»ACYHT'(2) ) 

1ST 


DO SIO 1=6 * 1 1 

1S8 


12 s 2*<t-!)+l 

IS 9 


SIO CALL OUTPF ( 1 «kLTZ 1 ( t » X ) * T'*EQAC( 12) *EQAC ( )2f | 

160 


CALL OUTPF (1*LTZ 1(1*11) *1*WGRACC*WGRACC (2) ) 

161 


RETURN 

162 

C 


161 


ENTRY OTPACQ 

164 

c 

OUTPUT ACQUISITION DEVICE DATA 

16<5 


IF ( PAGE ( . 0 ) ) WRITE (I0T*6|0Q) 

166 


JP a p&GE ( 9) 

167 


CALL SPACE 

'168 


CALL OUTPA j I *6H tl, JFLUID, JFLUIOf 1*2) ) 

169 


CALL SPACE 

170 


II s SATYPE 

171 


12 a SATYPE{2) 

172 


CALL OUTPA (1»LTZ1(|,|),liLTZ2(l,II j,LTZ2(|» 

171 


CALL OUTPF (1*LTZ1(I*2)*1*WTAC0.WTAC<1(2*I>) 

174 


CALL OUTPF (1»LTZl(l*1)tl*WLR*WLR(2)' 

■ 17S 


CALL OUTPF (ItLTZK 1 *4 ) » It WLRT *WLRT ( 2* 1 ) ) 

176 


RETURN 

177 

c 


178 


ENTRY OTPwSM 

■179 

c 

OUTPUT WEIGHT SUMMARY DATA 

■160 


IF (PAGE! 0)> WRITE (IOT>6))0) 

161 


JP = PAGE ( 8) 

182 


11 = IOSTT 

'181 


12 a IHSTT 

184 


KH2 :a I 

18S 


K02 :a I 

186 


MVL a 1 

:187 


NCPH a KHEHD - IHSTT 

188 


NCPO s KOEND - IOSTT 

'189 


MXCP := NCPO 

•190 


IF (MXCP .UT. NCPH) MXCP a NCPH 

191 


H2IWT a 0, 

192 


H2SWT = 0, 

191 


02IWT a 0, 

194 


02SWT a 0. 

US 

c 


196 


DO 770 laltMXCP 

'197 


GO TO (700*710 ) »K02 

'198 

c 

SET UP OXIDYZER SIDE 

199 


700 II a II t | 

<400 


IF (II .LE. KQEND) GO TO '710 

401 


K02 a 2 

402 


MVl a MVL - t 

■401 


GO TO 710 

404 


710 CALL GETCON (I| ) 

•MOS 


IF (CFUNCT ,EQ, 1 j -GO TO TOO 
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406 


KONAM s FNAME(CFUNCT) 

■407 


02W S 02IWT •♦■ Vfl < x 1 ) 

*♦08 


02547 a 02SW7 ♦ HEIGHT! II) 

409 

C 


4 1 0 


710 00 TO <740#760j,KH2 

4 1 1 

C 

set up fuel side 

4 1 2 


740 12 e 12 ♦ ( 

4H 


IF <12 ,LE« , KHEND) 00 TO 750 

414 


KHZ s 2 

4 ••> 


HVL = MVL - 2 

<416 


' 00 TO 760 

4 IT 


750 CALL GETCON (I?) 

< 4 18 


IF (CFUNCT ,EQ, 1) GO TO 740 

<419 


KHNAM a FNAME(CFUNCT) 

•420 


H2IWT s H2IWT •♦■ HI ( 12 ) 

42 1 


H2SWT s H2SWT •♦ HEIGHT! 12) 

<422 

c 


<421 


760 IF (MvL ,EQ, 0} GO TO 780 

<424 


IF ( PAGE ( 1 1 ) WRITE < TOT* 61 10) 

4 25 

c 

PRINT A LINE 

,426 


CALL OUTPH (MVL«KONAM»CODE<It)»HEtGHT(tt j.Htill), 

427 


1 KHNAM »CODE (12) *WEIOHT (!2)>WI{I2)) 

42s 


770 CONTINUE 

429 

c 


410 


780 CONTINUE 

411 


JP * PACE < 9) 

412 


CALL SPACE 

411 


HRITE ( I0T*6I 1 2) 

414 


TTLSHT s ENOHT ♦ H2SHT ♦ H2IHT ♦ 02SWT ♦ 02IWT 

415 


CALL SPACE 

416 

c 

PRINT SYSTEM wf» TOTALS 

417 


CALL OUTPFI <4,LCNF|,:EN0WT) 

.418 


DO 790 I8|»5 

919 


CALL OUTPFI (4,LCNF!( I *!♦!), HTOFSV(I)) 

440 


790 CONTINUE 

44 1 


RETURN 

•442 

c 


441 


ENTRY OTPF.LT 

444 

c 

. OUTPUT FLOHRATE DATA {FOR TURB.GG) 

945 


IF (PAGE! 0)1 WRITE (I0T t 6(20) 

446 


UP e PAGE (15) 

447 


CALL SPACE 

■448 


JKH .3 0 

449 


It = 1 

■450 


12 a 1 

451 


800 CALL OUTPA (l*6H »1,KFLUIDtKFLUID( 1 .2 j j 

.452 


810 CALL SPACE 

.451 

c 


■454 


DO 820 Is! If 12 

455 


820 CALL OUTPF (1*LFRT( 1 ♦ I ) »1.EQRT( I . 1 ) »EQRT( I t 2) ) 

456 


JKH .8 dKH •♦- 1 

'957 


GO TO (810f840 f 840)»JKM 

•458 

c 


'459 


ENTRY OTPFLX 

■460 

c 

{FOR HEX 00 FLOWRATES) 

461 


JP s PAGE (II J 

•462 


CALL SPACE 

461 


WRITE ( IOT >6120) 
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464 



JKM s 2 

461 

C 



466 


810 

CALL SPACE 

467 



II = 4 

468 



12 s 6 

469 



60 TO (810*800), JKM 

•470 


840 

CALL SPACE 

471 



CALL O'JTPF (1»LFRT<I»7)*1*WD0TT»WD0TT(2)) 

472 



RETURN 

471 

c 



474 



ENTRY OPAPUF (NCY) 

471 

c 


OUTPUT APU FLOWRATE DATA 

•476 



IF <PAGE( 0)) WRITE (107,6112) FMR 

477 



WRITE <IOT,6HO) 

478 



JP = PAGE (6+NCY) 

479 



DO 900 1=1, NCY 

480 


*o 

o 

o 

WRITE ( I0T , 6 1 40 ) I , PCTHP ( I ) , WO < I ) , TE{ I > 

481 



IF (PAGE ( 9)) WRITE (107,6110) 

482 



CALL SPACE 

481 



CALL SPACE 

484 



DO 9|0 1=1.1 

481 


9 1 0 

CALL OUTPFI (4»LAPU( (|»lj,EQAP|(!)) 

486 



CALL OUTPFI (4,LAPUt(|,6),WD0Tl ) 

487 



CALL OUTPFI ( 4, LApU 1(1.7), W00TI(2)) 

488 



return 

489 

c 



490 



entry OAPUSP (NCY) 

49| 

c 


OUTPUT APU-SUPERCRITICAL DATA 

492 



IF (PAGE< Oj) WRITE ( I0T,6 1 60 ) FMR 

491 



JP = PAGE (9+NCY ) 

494 

c 



491 



WRITE (I0T.6I62) 

496 



DO 1000 I=|, NCY 

497 


1000 

WRITE ( I0T*6 1 6 1 ) 1 »Q1 0D0TI I ) ,Q I HOOT ( I > , WOO ( I j.WDA(I), 

498 


' 

Q2OD0T'( I ) ,Q2H00T ( I ) , WOE ( I ) , WDB ( I ) 

499 

c 



100 



IF (PAGE (7+NCY) j WRITE (I0T.6I60) FMR 

101 



WRITE (I0T.6I64) 

102 



DO 1010 1=1, NCY 

101 


1010 

WRITE (I0T.6I6I) I .QlODOT ( I ) .Q1HDOT ( I ) ,WDF( I )+WDC( I ), 

104 


■ 

WTO ( I ) , WTH ( I ) , OWDB ( I ) 

101 

c 



106 



IF (PAGE (7+NCY)) WRITE (I0T.6I60) FMR 

107 



WRITE (I0T.6I66) 

108 



DO 1020 1=1, NCY 

109 


1020 

WRITE (I0T.6I6!) I.W60C ( I ) , WGHC ( I ) ,TT0( I ) ,TTH( I ) ,PC02WD( 

110 


' 

PCH2WD ( 1 ) , DOODWO ( I ) , OOODWH ( I ) 

11 1 

c 



112 



IF (PAGE (7+NCY) ) WRITE (IOT, 6160) FMR 

111 



WRITE (I0T.6I68) 

114 



DO 1010 1=1, NCY 

111 


1010 

WRITE (IOT, 6161) I,PHI02(I),PHIH2(I),Q20DTC(I),Q2HDTC(I) 

116 


' 

WDEC (!) ,WDBC ( I ) 

117 

c 



118 



IF (PAGE (7+NCY ) j WRITE (IOT, 6160) FMR 

119 



WRITE (IOT, 6170) 

120 



DO 1040 1=1, NCY 

121 


1040 

WRITE (IOT, 6171) I ,G10DTC ( I ) ,Q1«OTC( I ) . W0FC< I ) ,W0CC( I ) 
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i 


■522 

521 

•524 

525 

526 
52T 

1 528 
529 

510 

511 

512 
511 

| 514 
515 
,516 
51T 
'518 
519 

540 
'541 
542 

541 

544 

545 

546 


'549 

550 

551 
,552 
•551 
•554 


C 

IF <PAGE( 0)) WRITE (10T.6I60) FHR 
JP = PAGE (|8) 

CAU SPACE 

CALL OUTPA ( I *6H .1, JFLUID. JFLUIDt M2j j 

CALL SPACE 
DO 1050 Is I . M 

1050 CALL OUTPF (4 .LAPU2( 1 1 1 j , 1.EQAP2( 1. |j ,EQAP2( Z«21 j 

return 

c 

ENTRY OAPUSB (NCY) 

C OUTPUT APU -• SUBCRITICAL DATA 

IF (PAGE ( 0)) WRITE (I0T.6I72) FMR 
JP = PAGE (9*NCY) 

C 

WRITE (101.6174) 

DO 1100 Isl ,NCY 

((00 WRITE MOT. 6161 I 1.060007(1). Q4H00T( I J ,WDJ< jj .WD6( I j , 

I Q70DOT(I),Q5HDOT(I),WGGO(I),WGGH(I> 

c 

IF <PAGE< 0)) WRITE (I0T.6I72) FMR 
JP * PAGE (|8) 

CALL SPACE 

CALL OUTPA (I.6H . 1. JFLUID. JFLUID ( I .2) j 

CALL SPACE 
C 

DO IMOIcl.lt 
NVL a 1 

IF (I .EQ. 7) NVL B 2 

IMO CALL OUTPF (4.LAPU1( 1,1) .NVL.EQAPIt I . I ) .EQAPKI.ii 5 
RETURN 
C 

END 


1 
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SUBR0UTINE 0UTPUT 


1 C 

2 SUBROUTINE OUTPF (NTL, ITITL, NVL, VAR| »VAR2) 

1 C 

4 DIMENSION : ITITL<6) t IV* I (2 ) ♦ I VA2(2) 

s c 

6 6001 FORMAT <29X,6A6) 



7 

6002 FORMAT ( '♦'64X,EIS.6) 


8 

6001 FORMAT ( '■♦'84X,EIS,6) 


9 

6004 FORMAT ('♦'64Xtl II) 


to 

600S format ( *■+ * 84X* 1 1 | ) 


1 1 

6006 FORMAT ( 1 ♦ ' 68X * 2A6 ) 


12 

6 OO 7 FORMAT ( $ 8 X, 2A6) 


n 

6008 FORMAT ( ' *) 


14 

6009 FORMAT (T 11 , A6 , T27* A6 , 2F 14 .1* T66, * . M 


IS 

6010 FORMAT (T66t'.'T71tA6.T87*A6f2F|4.1) 


16 

601 1 FORMAT (T|1,A6»T27*A6,2Ft4.1*T6A«'.«T71»A6*T8T»A6»aP|4.lj 


IT 

C 


18 

WRITE (IOU, 6001) I ITTTL ( I j • X a 1 *NTL) 


19 

GO TO (110,120,110) »NVL 


20 

110 WRITE (IOU. 6002) VAR 1 


21 

IF (MVL .EQ. 1) RETURN 


22 

120 WRITE ( IOU » 6001 ) VAR2 


21 

return 

w 

24 

c 

1 

2S 

ENTRY OUTPFI (NTL.ITrTL.VARI) 

to 

26 

c 

CO 

05 

27 

WRITE (IOU, 6001) ( ITTTL ( I ) i I n I , NTL) 


28 

WRITE (IOU, 6002) VAR 1 


29 

RETURN 


10 

C 


11 

ENTRY OUTPI ( NTL i ITITL* NVL, IVRI , IVR2) 


12 

C 


11 

WRITE (IOU, 6001) ( ITITL ( I ) , 1= 1 »NTL) 


14 

GO TO (210,220,210) , NVL 


IS 

210 WRITE (IOU,6004) IVRI 


16 

IF (NVL ,'EQ, 1) RETURN 


17 

220 WRITE ( IOU ,600S ) IVR2 


18 

return 


19 

C 


40 

entry OUTPA (NTL, ITITL, NvL,IvAI,IvA2) 


HI 

c 


42 

WRITE (IOU, 6001 ) ( ITTTL { I j « 1st , NTL) 


41 

GO TO (110, 120, 110), NVL 


44 

110 WRITE (IOU, 6006) I VA I 


4S 

IF (NVL . ,'EQ, 1) RETURN 


46 

120 WRITE (IOU, 60071 IVA2 


47 

RETURN 


48 

C 


49 

ENTRY OUTPW (NvL,JvAI,JvA2,V AR l,vAR1,JvA1,UvA4,vAR2^vAR4) 


SO 

c 


SI 

GO TO (410, 420, 410), NVL 


S2 

410 WRITE (IOU, 6009) JVAI ,JVA2»VAR| ,VAR1 


SI 

GO TO 4S0 


S4 

420 WRITE (IOU, 6010) JVAI* JVA4, VAR2, VAR4 


ss 

GO TO 4S0 


S6 

410 WRITE ( IOU, 60 1 1 ) JVAI ,JVA2«VAR| * VART, JVAI, JVA4, VAR2, VAR4 


S7 

4S0 RETURN 
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> 


*'•**#•**' OUTPUT ******** 


56 

C 


59 


ENTRY SPACE 

60 

C 


61 


WRITE <I0Ut6008l 

62 


return 

61 

c 


6M 


ENTRY. OTUNIT (IONOJ 

65 

c 


66 


IOU = 10N0 

67' 


RETURN 

66 


END 


I 


I 
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FUNCTI0N 0XENTH 


FUNCTION OXENTH ( PRES » TEMP j 
C 

C ROUTINE CALLS steharts combined 02-N2 properties program 
c 

CALL OMPROP(TEMP,PRES f DXf ENTHI ,sx*ux»:x* t ) 

OXENTH = ENTHI 

RETURN 

END 


W 

I 

to 
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FUNCTI0N PAGE 


1 

C 

•* * •# •* 

PAGE 

0100001 

2 

C 

■■* ROUTINE NAME - PACE HEADING SUBFUNCTION. •*' 

PAGE 

0200002 

1 

C 

r* ROUTINE LANS • FORTRAN tV UNtVAC H0T/U08 *• 

PAGE 

0100001 

H 

C 

••* PROORAMMER - R. BOLLINGER 1412 104 22898'* 

PAGE 

0400004 

5 

C 

•* DATE CODED - 01/10/66 

PAGE 

0100001 

6 

c 

•* * * .•* * * * •* •*••* •*. * * 

PAGE 

0600006 

•r 

c 


PAGE 

0700007 

8 


FUNCTION PAGE (NLTNES ) 

PAGE 

0900008 

9 

c 


PAGE 

0900009 

10 

c 

***** EXPLANATION OF CALLING SEQUENCE ***** 

PAGE 

1000010 

1 1 

c 

• 

PAGE 

neoon 

12 

c 

INPUT 'TO PAGE 

PAGE 

1200012 

11 

c 


PAGE 

ITOOOt V 

m 

c 

NLINES - NUMBER OF LINES 

PAGE 

1400014 

ii 

c 

IF NLINES = -1. THE ROUTINE HILL INITIALIZE 

PAGE 

1SOOOH 

16 

c 

THE ROUTINE FOR A NEH CASE, 

PAGE 

1600016 

IT 

c 

PAGE EJECT, AND OUTPUT THE 

PAGE 

1700017 

18 

c 

PAGE HEADING. 

PAGE 

1900018 

19 

c 

0, THE ROUTINE WILL’ PAGE EJECT, 

PAGE 

1900019 

20 

c 

AND OUTPUT-THE' PAGE HEADING. 

PAGE 

2000020 

21 

c 

♦, THE ROUTINE WILL ADD NLINES 

PAGE 

2100021 

22 

c 

TO LINECT AND TEST TO SEE IF 

PAGE 

2200022' 

21 

c 

linect is greater than maxlin. 

PAGE 

2100021 

24 

c 

IF IT IS. THE ROUTINE WILL 

PAGE 

240002U 

21 

c 

PAGE EJECT AND OUTPUT THE PAGE 

PAGE 

2S0002S 

26 

c 

heading. 

PAGE 

2600026 

2T 

:c 


PAGE 2700027 

28 

c 

OUTPUT FROM PAGE 

PAGE 2800028 

29 

c 


PAGE 

■2900029 

10 

c 

PAGE - PAGE : EJECT OR NO PAGE EJECT 

PAGE 

1000010 

11 

c 

IF PAGE B TRUE , THE ROUTINE HAS PAGE EJECTED. 

PAGE 

1IC001I 

12 

c 

false, the routine haS' not- page 

PAGE 

1200012 

11 

c 

EJECTED. 

PAGE 

1100011 

14 

c 




11 


LOGICAL PAGE 



16 

c 


PAGE 

1400016 

IT 


include cpage 



18 

c 


PAGE 

4100018 

19 


PAGE := .FALSE. 

PAGE 

4200019 

40 


IF<NLINE5> 10,10,20 

PAGE 

41000 u 0 

41 

c 


PAGE 

4400041 

U2 


10 NCASE s NCASE •♦• 1 

PAGE 

4100092 

41 


CALL DATE(9,D0R) 

PAGE 

4800091 

44 


GO TO 40 

PAGE 

4900094 

41 

c 


PAGE 

1000041 

46 


20 LINECT :s . LINECT ♦ NLINES 

PAGE 

1100046 

47 


IFILINECT.LE. MAXLIN) RETURN 

PAGE 

1200047 

48 


10 LINECT = NLINES 

PAGE 

1400098 

99 


40 NPAGE s NPAGE * 1 

PAGE 

1910099 

10 


.CALL T0D(8,TIME) 

PAGE 

1100010 

11 


PAGE .TRUE. 

PAGE 

170001 1 

12 


WRITE (OPTLUN,6000)NAmE, NPAGE, OEPT,pTtTLE, DOR, EXT, TIME, BLD, 

PAGE 

1900012 

11 


1 JNUM, NCASE, CTITLE 



•14 


RETURN 

PAGE 

1900014 

11 

6000 FORMAT « ' | ' T28* <NAME » 2A6, 21 1 • **),t PAGE « 11 '/. 



16 


1 T 28 ,'DFPT ' A4.9X'* * 6&6, ' * DATE 'A6»Al / 



17 


2 T28, 'EXT, ' A1.8X '** 19X '* TIME * A6.A2 / 
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PAGE ********* 


******** 

•58 1 

•59 M 

60 C 

6 1 END 


T28*'BLD. » A3* I OX • *M TXA<>, 1 6X «•*• CASE MS / 
T28. 39 ( *•*' i j / TV), 1 2A6 j 


PAGE 6000060 
PAGE 6S0006I 
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SUBR0UTINE PARPMP 


to 


l 

a 

i 


6 


9 

10 

I I 
12 

II 
14 
19 
16 
IT- 
18 

19 

20 

: 21 
22 
23 
24- 
23 
26 
27 

i 28 

, 29 
30 
3| 

32 

33 
, 34 

33 

36 

37 

38 

39 

40 

4 1 

42 

41 

44 

43 

46 

47 

48 

49 

30 

31 

32 
' 33 

34 
S3 

36 

37 


C 


c 

c 



'* PUMP PARAMETRIC DATA ROUTINE * 

c 

, 


■* Ul, 11 VAC 1108 FORTRAN V *• 

c 



•* J. A. MCKAY 0|9m B-201 X43rT8 

c 



* DATE COOED AUGUST 24*1971 p- 

c 

c 

c- 



■•* REVISED MARCH 1972 *• 

c 

c 

c 



* p INPUT VARIABLES p * * 

c 




O 

«• 

IGS 

e 1 FOR OXYGEN 

c 



c 2 FOR HYDROGEN 

C' 




c 


JKM 

:s 1 FOR MINIMUM POWER REQUIREMENT 

c 



•S Z FOR MINIMUM WEIGHT REQUIREMENT 

c 

'+ 



c 


OLP 

:C REQUIRED PRESSURE RISE (PSU 

c 




c 


WDP 

■c FLOWRATE REQUIRED (L6/SEC) 

c 




c 


RNPS 

■S NET POSITIVE SUCTION PRESSURE AVAILABLE (NPSPA) (PS 

c 




c 


RHW 

:B FLUID DENSITY (LBS/CU.FT.I 

c 



• 

c * 

* 

•#v 

p * OUTPUT VARIABLES * * » 

c 




c 


TOTNU 

:S PUMP EFFICIENCY 

c 

•*: 



c 

*• 

V 

•s PUMP VOLUME 

c 




c 

#• 

E 

«: PUMP POWER 

c 

+ -■ 



c 


MT 

:S PUMP WEIGHT 

c 




c 


PNSG 

PUMP SPEED 

c 




c 


NSTG 

*■ NUMBER of pump stages 

c- 




c 

c 

c 


NPSPR 

■= computed npsh required by pump 


C 

SUBROUTINE PARPMP (IGS* JKM,DLP,VDP*RNPS,RHw*TOTNU,v»E*WT,PNSG. 
I NSTGt NPSPR) 
c 

real NMaX»NPSPA( 2) »NPSPRfNSS I »NUMX<3) 

c 

INCLUDE iCIOUNT 
INCLUDE CONST 
INCLUDE DUMMY 
INCLUDE SPUMP.LIST' 

INCLUDE TABLOK 
C 

DIMENSION DELP(2l*RHO{21,S<2),WOOTP(2) 
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PARPMP ******** 


58 

59 

60 
61 
62 
61 
■64 

65 

66 
6T 
68 

69 

70 

71 

72 
77 

74 

75 

76 

77 

78 

79 

80 
81 
82 
87 

84 

85 

86 

87 

88 

89 

90 
9| 
92 
97 

94 

95 

96 

97 

98 

99 
100 
101 
102 
107 

104 

105 

106 
107 
i 08 

109 

1 10 
(II 
I 12 
117 
1 14 
I 15 


DIMENSION AE(5) , AV(5) . AW(5! 

DIMENSION XM(I21.SWB(2> 

C 

EQUIVALENCE (SCRTCH(4) »NUMX j * (SCRTCHI 12) *DELP) 

I » ( 5CRTCH{ |4j.WD0TP), (SCRTCHj I 6 ) . NPSPA ) , , SCRTCH ( ISj.RHO) 

2, (SCRTCH (34), AE), (SCRTCH (79). AV),t SCRTCH <44 >. AW) 

C 

DATA 5/50000. .700000.7 

DATA 72.5t7.S.3.5f2.25*7.25»7.25.2.0»2.7S.2.T5»2.0»3.0»7i0 / 
DATA SWB V r >0.»7./ PB 71000./ 

C 

DELP(IGS) = DLP 
NPSPA(IGS) a RNPS 
RHO(IGS) s RHW 
WDOTP(IGS) e WDP 
DNS = 2,0 

SOTQ = SORT (449, * WDOTP(IGS) / RHO(IGS)) 

IF (MPSPA(IGS) .EQ. 0.) GO TO 10 
C 

UMAX 'S 5 ( IGS )* ( I 44,*NPSPA( IGS) /RHO{ IGS) >**( «?5 ) / SQTQ 

if (nuax ,lt. iooooo.) go to 20 

10 NMAX c 100000. 

20 DO 50 Is 1 .5 
C 

C I - NUMBER OF PUMP STAGES 

c 

NSTG c I 
C 

C CALC HEAD RISE PER STAGE 

C 

H S l44,*0ELP(IGSj / <I*RH0(IGS)) 

C 

C CALC MULT. FACTOR FOR SPECIFIC SPEED 

C 

XNS 8 SQTQ / H**(.75> 

C 

C LOOP TO FIND MAX PUMP HYDRAULIC EFF (NUMX) 

C 

DINT :B NMAX 
NSG s 0, 

NSS I -a 0. 

DO 40 Jsl.lO 
DINT a DINT / 2. 

NSS I a NSS 

nsg s' nsg ♦ dint - 2,-*ons/xns 
CALL PUMPEF (2) 

SO = DOLE ( NU( 2) ) - DBLE(NU( I ) ) 

DINT a SIGN (OINT.SD) 

NU Cl) = NU(2) 

IF (ABS(NSSI-NSS) - OnS) 42.42.40 
40 CONTINUE 
C 

42 CONTINUE 
NPSPR a 0. 

IF (NPSPA ( IGS ) .EQ, 0.) GO TO 60 
C 

C CAuC. required npsp 

C 
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PARPMP 


It 

18 

19 


121 
124 
i I2S 
126 
I 2J 
I 2B 
129 

no 

Ml 

112 

111 

114 

115 

116 

117 

118 
119 

! 140 
I 4 | 
142 
141 
1 44 
i I4S 

146 

147 

148 

149 

150 

111 

112 
HI 
114 

. 1 IIS 
116 
IS7 
lie 
119 
160 
161 
162 
161 
164 
I 1 6S 
166 

167 

168 

169 

170 

171 

172 
171 


NPSPR = RHO(IGS) 7 I44.*(NSG*SQT0 / S ( I6S > >**(4.7li > 

IF (NPSPA(IGS) ,GE. NPSPR) 60 TO 60 
C 

C IF HPSP (REG) GREATER THAN NPSP (AVtL) RECALC NU 

C 

NPSPR B NpSPAUGS) 

NSG s S ( IGS j / SQTQ * (I44.*NPSPR/RH0{I6S) j**tl./4.j 
C 

C RECALC NSS,;..,NU 

C 

DNS = 0. 

CALL PUMPEF (ij 
DNS e 2.0 
60 CONTINUE 

IF (U .GT. 1700.) NU s ol 
TOTNU n NU/<t.T.01*(NS7G-l. j/NSTGI 
. ISTG s NSTG 

IF (NSTG ,GT. 1) ISTG = 1 
IF (NSS ,LE, 17S.0) GO TO 120 
C 

C FIND DIAMETER AND LENGTH OF PUMP 

C PUMP TYPE A OR C 

C 

POI e (.7 * 01 
IF ( DI .GT. 1.1) GO TO 100 
PLGT s XM ( ISTG) *01 
GO TO 110 

100 IF (DI .GT. 2.0) GO TO I |0 
PLGT a XM(ISTGO)*OI 

go to no 

I 10 PLGT = XM(ISTG+6)*DI 
GO TO no 

c 

-C- PUMP TYPE B 

C 

120 PDI s 1.4 ■* DI 

PLGT •= XM ( ISTG+9 ) *DI 
110 IF (NSTG .LT. 1) GO TO |40 

PLGT a PLGT ♦ DI*(NSTG-2j / 2. 

140 CONTINUE 

■e 

CALL FINTAB (NTBID(22) ) 

HB s MIPE (1*01) 

FH * (WDOTP(IGS) 7 SHB(IGS) )**(.2S) 

P c IIPSPAUGS) ♦ DELP(IGS) 

C 

c calculate pump HEIGHT 

c 

IF (NSS .67, 171,0) GO TO ISO 
C 

c pump type b 

c 

HI s ,01 
HH = .IS 
WS = NSTG**( .71 ) 

GO TO 160 
C 
C' 


PUMP TYPE A OR C 
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******** 


fT4 

C 



ITS 


ISO 

WI = ,I*FW 

176 



WH s ,SS 

177 



WS = 1. 

178 


160 

WI = W1*NSTG*WB 

179 



WH = WH*WB*NSTG**(|,/1.) 

180 



WS = WS*,3S*WB*P/PB*FW 

181 



WT = WI ♦ WH ♦ WS 

1 82 

C 



181 

c 


CALC. PUMP VOLUME 

184 

c 



IBS 



V :s. ,2S*PJ*PLGT*PD1*PDI 

186 

c 



187 

c 


CALC. PUMP POWER 

188 

c 


E - WDOTP ( IGS )*H*NSTG / (SSO.*TOTNU) 

189 



1 90 



AE(I) = E 

1 9 | 



AV ( I ) = V 

192 



AW ( I ) = WT 

193 



NUMX(I) - TOTNU 

1 94 

c 



|9S 


so 

CONTINUE 

196 



XMN = I.EIO 

197 



00 230 K=|,S 

)98 



GO TO (200*210). JKM 

1 99 

c 



200 

c 


FOR MIN. POWER REQ. 

20| 

c 



202 


200 

IF (AE(K) .GE. XMN) GO TO 230 

203 



XMN = AE(K) 

204 



GO TO 220 

20S 

c 



206 

c 


for min. weight reo. 

207 

c 



208 


210 

IF (Aw(K) .GE. XMN) GO TO 230 

209 



XMN = AW(K ) 

210 


220 

NSTG ■= K 

211 


230 

CONTINUE 

212 



E = AE (NSTG j 

213 



V = AV(NSTG) 

.214 



WT = AW (NSTG) 

2 1 S 



TOTNU = NUmX(HSTG) 

216 



PNSG a NSG 

217 

c 



218 

c 


OFF-DESIGN PUMP PERFORMANCE 

219 

c 



220 



RETURN 

22 1 



END 


\ 
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SUBR0UTINE PFND 


W 

I 

to 

Ol 


c 

c.. 


SUBROUTINE PFNOtT»B*P) 

COMMON 7RFPR/ RF ( 1 0 j 
COMMON /CE0S/G(4l) 

XOMMON /SCRH/ B(40) 

THIS ROUTINE CALCULATES PRESSURE GIVEN TEMPERATURE AND DENSITY 


■7 

C.... FROM THE EQUATION 

8 

C 1 

9 

R=RF(S) 

10 

D2=0*0 

1 1 

D1=02*D 

12 

D4=D1*D 

11 

0S=D4*0 

14 

06=05*0 

IS. 

07=06*0 

16, 

08=07*0 

17 

09=08*0 

18 

DI0=09*D 

19 

01 1 =DI 0*D 

20 

DI2=DI 1 *D 

21 

011=012*0 

22 

TS = SQRTfT) 

21 

T2=T*T 

.24 

T1=T2*T 

2S 

T4ST 1*T 

26 

OMsG ( 4 | ) 

27 

F = EXP(GM*D2) 

28 

B( 1 >=02*T 

29 

B ( 2 ) =D2*TS 

10 

B< 11=02 

11 

B( 4 ) =D2/T 

12 

B( S >=02/T2 

11 

B( 6)=01*T 

14 

B( 7 1=01 

IS 

B( 8 ) =01/T 

16 

B( 9 )=01/T2 

17 

B 1 1 0 >=D4*T 

18 

8(11 )=04 

19 

B( 1 2 > = 04/T 

40 

B ( 1 1 ) =05 

4 1 

B(|4)=06/T 

42 

B( |S)=D6/T2 

41 

B( 1 6 ) =07/T 

44 

B( 1 7 )=08 /T 

4S 

B( 1 8 )=08/T2 

46 

B( |9)=D9/T2 

47 

B(20>=01*F/T2 

48 

B(2I)=01*F/T1 

49 

B(22)=0S*F/T2 

SO 

B(27)=0S*F/T4 

SI 

B(24)=07*F/T2 

S2 

B(25 >=07*F/T1 

Si 

B(26 )=D9*F/T2 

S4 

B(27)=09*F/T4 

ss 

B(28)=0I (*F/T2 

S6 

B(29)sD| l*F/T1 

S7 

B(10)=0I1*F/T2 


1 
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******** PPND r******** 


58 

Btll )S0H*P/T1 

59 

8n2)=tM1*F/T4 

60 

N=12 

61 

P s 0.0 ' 

62 

DO 1 I=|. N . 

61 

1 P=P»Bn>*GtI> 

64 

p=p+R*0*T 

65 

return 

66 

F.NO 
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SUBR0UTINE PFNDB 


1 

2 
1 
*4 
<5 
6 

7 

8 
9 


SUBROUTINE PFNDB(T8,DB*PB) 

COMMON /RFPfi/ RF(IO) 

NT=RF<7> 

T = TB/1.8 

0 = DB * 4*51.<592lTE-VjWT * 2.8U6§i»7e-aj 

CALL PFND(Tf OfP) 

PB s P * l,0nzSEPS/6.8947S72E+9 

RETURN 

END 
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SUBR0UTINE PHIB 


SUBROUTINE PHIB(0B.CVBf02B.ED8) 

CALCULATES the ENERGY DERIVATIVE from the equation of state in 
BRITISH UNITS 

must FOLLOW CALLS OF PROPS .CPVTDB , AND DPDTB TO DEFINE DB* CVB, ♦ 
02 

input and output parameters are in British units 

VB = 1,0/DB 
EDBS(VR/CVB)*028 

return 

END 
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SUBR0UT1NE PHTH0N 


( 

2 

r 

M 

•> 

6 


9 

10 

11 

12 
II 
19 

15 

16 

17 

18 

19 

20 
21 
22 
27 
29 

25 

26 

27 

28 
29 
70 


C 

C 

c 

c 


c 


c 

c 

c 

c 


c 


c 

c 


SUBROUTINE PHTHON (TEMP »DENS t NGAS . PHI t'THETA j 
COMMON /ME7H/ H 

INPUT TO THIS SUBROUTINE MUST BE IN BRITISH UNITS 

t = 'TEMP 
D = DENS 
M s I 

IF<NGAS,EQ. I > KF = I 
IF ( NGAS» EQ. 1 8 1 KF s 2 

KF a | CALL IN OXYGEN PARAMETERS 
KF s 2 CALL IN NITROGEN PARAMETERS 

IF(KF.EO.I) CALL DATA02 
IF(KF.EQ.2) CALL DATAN2 

DI=DPDDBfTfD) 

DZ=OPDTB<T»D) 

CALL .CPVTOB(TiO,CP,CV) 

CALL THETAB<D,CP,Dl f D2,SHI) 

THETA a SHI 

CALL PHIB(0 f CV,02»E0) 

PHI a EO 

RETURN 

END 
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SU&R0UTINE PR0P 


| SUBROUTINE PROPfT,P,0,K,H»S,U,Z) 

2 COMMON /CRPR/ CR(1) /METH/M 

1 C 

4 c.... GENERALIZED property calculator 

s c 

6 C.... ROUTINE CALCULATES PROPERTIES FOR FOLLOWING INPUT’ of k 

7 C 



8 

C 

K=l 

INPUT IS T P RETURNS D, H* St ♦ U 


9 

C 

K=2 

INPUT IS T ♦ 0 RETURNS P. H» S, ♦ U 


10 

C 

K = 1 

INPUT IS T RETURNS P, D, H, S, ♦ U FOR SATURATED VAPOR 


1 1 

C 

K=4 

Input is t returns p. D# h, s* ♦ u f 0 r saturated liquid 


12 

C 




11 

c « • « , 

NOTE 

ALL REAL VARIABLES IN CALL STATEMENTS TO ROUTINES IN 


m 

c 


THIS PACKAGE MUST BE TYPED IMPLICIT DOUBLE PRECISION 


IS 

1 A. 

c 

r 


(A-H, O-Z) 


1 6 
IT 

c « • « • 

NOTE 

THE FIRST’ CALL STATEMENT In THE USER'S MAIn PRoBrAM MUST” 


18 

c 


BE TO A DATA INITIALIZATION ROUTINE 


19 

c 


EXAMPLE CALL 0ATA02 


20 

c 




21 

Cmii 

NOTE 

THE METHOD OF PROPERTY CALCULATION IS DETERMINED BY THE 


22 

c 


VALUE OF M CONTAINED IN COMMON BLOCK /METH/M 


21 

c 



w 

24 

c 

Ms 1 

INDICATES PROPERTY CALCULATION TO BE CARRIED OUT BY 

1 

to 

2S 

c 


.continuous integration of isotherms through the two phase 

CJl 

26 

c 


REGION 

o 

27 

c 

M=2 

INDICATES property calculation is inturupted at the two 


28 

c 


phase vapor bounory and the clapeyron relation with the 


29 

c 


vapor pressure equation is used to calculate the latent 


10 

c 


HEAT, INTEGRATION Op ISOTHERMS IS CONTINUED AT THE 


11 

c 


SATURATED LIQUID BOUNORY 


12 

c 




11 


PC=CR( 1 ) 


14 


DCsCR ( 2 ) 


IS 


TCcCR(l) 


16 


IF ( (K 

,GT.O).AND.(K,LT,S))GO TO 1 


17 


WRITE(6,100)K 


18 

100 

FORMAT! ' *** ERROR IN CALL PROP ***',/, 


19 


• 

' K MUST EQUAL l»2*1. OR 4',/, 


40 


• 

' K = '.HO) 


Ml 


RETURN 


M2 

1 

IF ( K , 

LT.1JG0 TO 1 


Ml 


IF(T. 

LE.TCIGO TO 2 


MM 


WRI TE (6, 10 1 )T 


4S 

101 

FORMAT! i •*** ERROR IN CALL PROP ****,/, 


Mfc 


• 

' SATURATION PROPERTIES HAVE BEEN REQUESTED',/, 


M7 


• 

' For A TEMPERATURE TAHT EXCEEDS ’CRTTICAL'f/t 


M8 


• 

' T = ' *GIS.S) 


M9 

2 

P=VPH(T) 


SO 


IF (K 

.EQ.1ICALL DFND(T*P,D,Z!,2) 


SI 


IF !K 

.EQ.4KALL DFNDCT , P,D i Z 1 » 1) 


S2 


00 TO 

4 


Si 

1 

IF(K. 

GT. l)GO TO 7 


S4 


CAUL 

0FND!T,P,0,ZI ,0) 


ss 


IF (T, 

GT.TOGO TO S 


S6 

4 

I F ( 0 , 

GT.DOGO TO 6 


S7 

s 

CALL 

VPR0P(T,P*0,1,H,’S*U,Z) 
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PROP 


******** 


•58 


RETURN 

•59 

6 

IFtM.EO. 1 ) <30 TO 5 

60 


CALL ,LPR0P{T»P*0»1tH«S*U f ZI 

61 


RETURN 

62 

7 

IF(T.OT.TC)CO TO 8 

63 


VPsVPN(T) 

64 


CALL OFNO(T»VP«DV*Z2i2) 

6«5 


CALL OFNDfTt VP*0L»Z2» 1 ) 

66 


IFfD.CE, DUOO TO 9 

67 


IF ( 0 , GT « DV ) GO TO 10 

68 

8 

CALL VPR0P(T*P*O»l*H*S»U»Z3 

69 


return 

70 

9 

IF(M.EO. I ) GO TO 8 

Tl 


CALL LPH0PfT*P*0*|*HtS»U»Z) 

72 


RETURN 

Tl 

10 

VL S' 1 ,0/DL 

74 


VV s I.O/DV 

75 


V s 1,0/0 

76 


X=(V-VL)/(W-VL1 

77 


CALL VPROP fT,P,DV» 1 *HV*SVi l/V*ZV) 

78 


IF(M.EQ.2)G0 TO II 

79 


CALL VPROP<T.P»OL*liHL»SL»UL*ZLI 

80 


GO TO 12 

81 

1 1 

CALL LPROP(T,P,DL* l»HL*SL.UL.ZL) 

82 

12 

h=hl*x*(hv-hd 

81 


S=SL»X*(SV-SL) 

84 


USUL+X*(UV-UL> 

85 


Z - ZL 

86 


return 

87 


END 
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******** SU8R0UTINE PR0PB 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
I I 
12 

13 

14 

15 


SUBROUTINE pR0P8<TS,PB»0B»K,HB,sB»un,IB) 
COUPON /RFPR/RFOO) 

WT=Rf(7) 

T = TB/l.S. 

P = PB •* 6.8947S72E*7/|.0(32SE*3 
D s DB * 4S3.59237E.3/<WT * 2.87I(,847E.2) 
CftU PR0P(T,P,0.K,H»S,U,z) 

PB s p * | , 0 1 125E+5/6. 8947572E + 3 

OB = 0 * WT * 2.8Tt6fl47E-2/4S7.392'j7E»l 

HB .= H * 453. 39237/1 I.0541502E+3 * WT) 

UB = l) ■* 451.59217/1 l.0541502£*1 * WT) 

SB = S * 453.59237/t ! .0543502E*3 * 1.8 * Wtl 

2B = l 

RETURN 

END 


W 

to 
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FUNCTI0N PSATH 



■ 1 

FUNCTION PSATH<PRESS*HG,HU . 

1821 

0001 


2 

DIMENSION R(I9)*TL(|9)»TG(I91»TF(I9J 

1822 

0002 


1 

DATA R/ 1 .022,2.0*4.0*8.0* 14.0* 2S. 0.41.0*69.0*99.0* 128.0* IS 1.0, 

1821 

0001 


4 

1 I6S.I I7&.0* 182.0* |8S.0f l86.Sfl87.2Sf l87.468TSf|8T.S06/ 

1824 

0004 


S 

DATA TF/24.84S, 

I82S 

ooos 


6 

227.07*29.8 If 11.07*16. |8t 79, 96*44. 12. 48.11fSl.97fS4.79tS6.72tS7.80f 

1826 

0006 


■ T 

1S8.S7*S8.99,S9.I8,S9.29,S9.14.S9.1S7*S9.7S6/ 

1827 

0007 


8 

DATA T6/60.1I »6S, 1 1 .70 jS9 

1828 

0008 


* 9 

4. 76. IS* 80. 98* 8S. 1 I *87. 40 *86. S4* 81 .94*74. IS*64. 81 *S6. 86*47. 14* 19.S6 

1829 

0009 


10 

S. 11. 46. 28. 74. 22. 11 .18,66. 16. SS/ 

1810 

0010 


1 1 

DATA TL/-I12.8..I29. 11*. 124. 2St-l 17.79 

1811 

001 1 


12 

6*- II 0. 86*- 10 1. 1*-89.04f- 74. 22*-SB.S8t-41. 41.-10. 07,-20. S6.-I 1.11* 

1872 

0012 


lr 

7-4.27, 1 . 17.S.S4. 10.81, 14 i29, 16.16/ 

1811 

0011 


14 

P=PRESS 

1814 

0014 


IS 

IF ( P.LT, 1 ,022)P=I ,022 

I81S 

OOIS 


16 

!F(P,GE, I8T.S06IPsI87.S06 

1816 

0016 


IT 

DO 104 1=2.19 

1877 

0017 


18 

IF(P-R(I) J 102,101,104 

1818 

0018 


19 

101 HL=TL(I) 

1819 

0019 


20 

HGcTG(I) 

1840 

0020 


21 

PSATH 3TF < I ) 

1841 

0021 


22 

RETURN 

1842 

0022 

hH 

21 

102 D=R(I)-RU-|) 

1841 

0027 

T 

24 

PRRsR ( I > — P 

1844 

0024 

to 

2S 

PPR-P-R ( I- 1 ) 

I84S 

002S 

cn 

26 

HLs(tLin«PPRfTUII-l»4PRR)/0 

1846 

0026 

CO 

27 

HG=tTGU )*PPRfTG(|-l )*PRP)/D 

1847 

0027 


28 

PSATH s(TFU)*PPR*TFU-l )*PRR)/D 

1848 

0028 


29 

RETURN 

1849 

0029 


10 

104 CONTINUE 

I8S0 

0010 


11 

return 

I8SI 

0071 


12 

END 

I8S2 

0072 


i 


i 
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PTDENS 


******** 


*58 

■59 

60 

M 

62 

61 

64 

65 

66 

67 

68 

69 

70 

71 

72 
'71 

74 

75 

76 

77 

78 

79 

80 
01 
02 
81 

04 

05 
86 

87 

88 

89 

90 
9 I 

92 

93 

94 

95 

96 

97 

98 

99 
100 
I0| 
102 
101 

104 

105 

106 
l'07 
108 
109 

I 10 


111 
I 14 
115 


0679 AD 75.011*5.) I 2.5. 1 81*4.8 1 6*4.9)0*4.994*4.558.4. 

I 676, 4. 764, 4. 248, 4. 405, 4, 511, 1.880, 4. 094, 4,246.1, 442,1.741', 1.958, 2. 
2953. 1.361, 1,631*2. 48 I, 2. 975, 1.107, 2. 091. 2. 61 6*3. 002* 1.804, 2. 109. 2, 
1698, 1.588, 2, 059. 2. 462* 1.421, 1.856*2. 226. 1.291, |.69 | ,2. 056,|. |87.l. 
4555* I ,886*'l , 100* 1 .441 * I .754, 1,026* I .344, 1 .639*. 9627* I .262* 1 .546* .9 
5076- ) . 189, | ,453* 4. '742,4 .853*4.946*5.03 I *4,430*4.584,4.709*4,8 I 6 

6*4.024*4.279*4.417*4.558,3. 165,3.778*4.050*4.248, I .430*2.988,3.505 
7*3,880* -.0233 *.558 | * I , I 89. I .804. -.01 5* .5030* I ,05* 1 .588*. ,0099 * . 

8459) , .945, | ,423. -.00*5 *.423 I * . 86 I 8 , | . 293 ,-.0042 , . 3928 , .7943, I .187* 
9-. 0025*. 3669 *.7379* I. I *-,00 1 5 *.3445* .68 98* I . 026,-. 0007 ,. 3249/ 

OAT* AH 7.6483, .9627,. .0001*. 3075, .6120*. 9076/ 

DA7A Af 7-. 07704, .02568,, 1307. .2384, -.06786*. 02262. it 

t I44,.2079*-,06066,.02022*. 1018, . IB44,..0S484,.0IB28,.09|79,. [659*. 
2. 05004 *.01668* .0836*. 1 508* -.04602*. 0:574,. 07677*. 1787* 7.887*1.9 

186,4. | 05, 3. 447, 1.646 *1. 7«2*2.9 I 0.3. 226 *3. 442. 2. 123, 2. 760 *3.05 I » 1.8 
457*2.317,2.670* I .549* I .963*2.126*1 ,34* | ,701 *2.015* I . 189, | ,497* I .00 
54* .7859, | .709* 1 ,857* .£864* I . 1 06 , 1 ,549 , .6 1 4 I , . 968 9 * I , 34* .558 | , .8 

6735*1.189, . 1 675*. 3524 *,5577*. 7859*. | no*. 31 78*. 4955 *.6864*. 1409. 
7.2902*. 4479,.6|41 ,. 1 307 * . 2674 * .4 1 27 * , 558 I * -. 0722$ *. 0 3224 *. 0985? * 

8. 1 675, -. 029742*. 0297 I *. 0904 3,. | 53. -.027561*. 02754,. 08 359*. | 409, -.0 

925680. . 02568. .078 I 9, , I 307/ 

DAjA AG /1. 226, 1.807, 2. 329, 2. 674*2. 9 1, I. 052* I, 481.1,9 

141 *2.126*2.616, .9378* 1 .279. | . 656 * 2 , 0 I 9 . 2 . 323 . . 8526* 1 . 14 1* 1 .456* I ,7 
274,2,089. .7859, I .047* I .309, | ,583.( ,8‘.7» . 09975 * . 2084 . . 3279 , .46 I . .6 
31 1 5 *,7847,. 9864* 1 . 226 » . 09478 * . I 962 *. 3063 ., 4264 . ,5585 ». 7052 ». 869 3 , 
4 I.0S2.. 0898 | ,. | 855 *,2878,. 3977 ,.5164* . 645 I * . 785 I . . ? 388 , . 08590 * . I 76 
5 ». 27 [7*. 3734 *.48 I 7 *,5972,. 7207., 8526*. 08 I 99,. | 675,. 2599,. 3524,. 455 

60.. 5577 ,.67 I 8 ,.7859, - . Q 1 9 364 » , 0 1 9 32 , . 05888 , . 09 975 ,- . 0 1 7558 , ,0 1 75 

73.. 05323. .0898) , - . 0 ) 6 1 5 , . 0 I 6 1 I * .04882 *,08)99. 3 , 304 * 3 . 422 , 3 . 54 I , 

83. 659 ,3, 777* 3.044 .3, 290* 3. 450* 3.572,^.667.2. 740* 7. 1 02* 3. 304, 3. 44<», 
93.557, 2.122* 2.880* 3. 1 *3.3) 5*1. 447,). 861 *2.621*2,959,3. 170*1.717/ 

data AH '/1 .551 ,2.329,2.760*7.014.3. 179, 1.358,2.045. 

1 2 *046 *2. 848,3. 044* 1.226* 1. 807*2.329*7.674.2.910/ 

DATA A 1 /. 6295, 2. 42. 2. 776. 2. 849, 2. 937*3. 005*3. 061 *3^1 

1 1 *1. (53*3. 19 1 *3.227, 3. 259,.9338. 1.076* 1.265* 1.599,2.202,2.506*2.65 
29*2. 768, 2.85*2. 9 I 8* 2.976* 3. 026*. 82’7*. 9234, | .01* I. 159, 1,322.1 .542* 
31.635*2. ) 36,2.356, 2, 5o9*2.6|8*a.7o9*. 7590 *.8323*, 9 |2), I.OOI* I. 107* 
4 | .220* 1 .359, 1.523* 1.7)3, ).9 |6* 2. 1 06 , 2 . 267. . 7053* ,7670* .8326* , 9039, 
5.98o7*l.066*l.|60*l.265*|, 783*l.5l3* 1 . 655* I .803 * .662 I * . 7 1 6 I * .772R * 
6.8 311 ,,8976* .9656*) ,040, | . I 20* 1 .206, 1 .299* ) .400 * 1 .507 * .6259 ,. 6745* 
7, 7250 *.7780* .8 777*. 8927, ,9537* I . 0 I 9, 1 ,089* | . | 63* 1 .242* 1 . 325. ,594 I , 
8. 64 1 2*,6887*. 7355*. 78 26*, 8172 *.892 1 ,,9469*1.005* 1.070* I. 135, I .200/ 
OA T A AJ/-. 000747*. 04849*. 09854 *.0*.0*-. 000787, ,04021*. 

108466*. I 3 1 5*. 19 I5*-,000477,,01393. 1 07012,. 1097*. 1 534 *•-, 000257 ». 029 
241 , .06027, .09278*. 1275 *..000 1 77.. 0 2599, ,05289.. 0808*. 1098, -.000 1 22 
3*. 0213*. 04 72*. 07 177, .09714.-. 000083*. 021 I 2, . 04266. . 06465 * .087 1 9 , ... 
40000 65 *.0|932*. 03810*. 05888. .07911* 0.*.0I I 72* .02363 *-.000 1 I I *.00 

59736*. 01 98 *-.000059. .008 1 54 , , 0 1 648 . 000076 » . 0070? I *.014 14*-. 00002 
64*.O06 1 66, .01 24* -.0000 1 5* .005498., 01 I Ot*.-, 00001 I ,,004962* .P099su,. 
7. 00R009,. 00452 I*. 009067 *-.000007*. 004 1 57 *.008 72 1 *-,000022 *.007846, 
8,007715/ 

DAtA AK/ , 1664* « 24 8, 0., 0,,0.*0. *.1469*. 2418, , 3197. 0,)0.*0.,. 1115* 
1,21 1 7,. 309 I ,. 4233,. 53) 8*0. *. I (95.. I 89 | ,,2684.. 3626,. 48 | I ,.61 15, 

2. 1098. . |7l7*. 2400*. 11 66, ,4051*. 5124. .1017*. 1578. ,2)87». 2841, .3568, 

3. 4187.. 09486.. (463*. 2009,, 2592,. 122,. 1903 *.08892,. 1377 *.1865 *.2407 
4*. 295, . 3565. .5712*. 727*. 9725*0. *0.*0«*. 5124, . 6559, »85|4,|. I 16*0.* 
50. *.4755 *,5827*. 7329 *,9604* I .252*1 .'7 1 8* .4387* ,5133* ,6477, ,'7994* 1 . 0 
668*1 .534*.4 145 *.4956* .59 14,. 7060 *.8535, I .002 *.3903*. 4653 *.5491 ,.64 
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P70ENS ***•»•**■»* 




W 

I 

to 

U 1 

Oi 


116 
I IT 
118 
1 I 19 
\20 
121 
122 
121 

124 

125 

126 

127 

128 
129 

no 

111 

112 

111 

114 

, ns 
116 
117 
lie 

119 

140 

141 

142 
141 
144 

I 145 
146 
1 47' 

148 

149 

150 

151 

152 
ISI 

154 

155 

156 

1 ST 

158 

159 

160 
1 6 1 
162 
161 

164 

165 

166 

167 

168 

169 

170 

171 

172 
1 71 


747*.7575».8985*.1714*,4l99..5|5l*»S986t.69a8f t 8020*tiS65»,4|8|».48 
898, .5616*. 6487*.71S8», 08892,.! 865*. 2R5..4 1 8 1, .561 6t.T158», 08171* il 
9741*. 271 1 ,.1822,. 5044*. 6419,, 07911,, 1 649,. 2562*. 1545*. 46 10*. 58 1 4/ 
P=PRES 

IFtP.LT.t.O) P=I.O 
7=TEMP 

IFIT.LT.ieO.Q) GO 70 8 
IFIT.GE, MOO. 0) GO 70 4 
IFIT.GE, 490,0) GO 70 2 
IF (P.GE.800. ) CO TO I 
N=l 

GO TO 11 

1 N=2 

GO TO 11 

2 IF(P.GE. 100.0) GO TO 1 
N=1 

GO TO 11 
1 N=4 

GO TO 11 

4 IF(T,GE. 2500.0) GO TO 6 
IF(P.GE. 100,0) GO TO 5 
N=5 

GO TO 11 

5 N=6 

GO TO 11 

6 IF<T,GE, 5000.0) T=4999i99999 
IF |P.GE, 10.0) GO TO 7 

N=7 

GO To 11 

7 N=8 

GO TO 11 

8 72=24.84*0. 001 I 7*P 
IF(T.LT.TZ) TSTZ 

IF (P.LT .881.76) GO TO II 
IFJP.CT ,2645.28 ) GO TO 9 
N=9 

GO TO 11 

9 IF(P.LT. 1469,6) GO TO 10 
N= I 0 

GO TO 11 
10 Hsl I 

GO TO 11 

I I IFIT.GE, 59, 4) Go TO 14 
Ns 1 2 

1F(P,GE, 187.6185) GO TO 11 
DO 12 1=2,20 
IF(R-PS|I))|1f 11*12 
12 CONTINUE 

1=20 , . 

n TM = T5(i-i)+(TS(n-Tsii-ii>*(p-psii-i))/iPsii)-psn-i)) 

IF ( T.GE.TM j GO TO 24 
GO TO 11 

14 IF(T,LT, 108.0) GO TO |6 
IF(P.UT. 112,264) GO TO 15 

n=ii 

GO TO 11 

15 N= 1 4 

GO TO 11 
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PTDEN5 ******** 


I T«4 

175 

176 

177 

178 
m 
180 
181 
182 
181 
184 

I es 

186 

187 

188 
I 89 

190 

191 

192 
1 91 
I 94 

1 95 

196 

197 

198 

199 

200 
201 
202 
201 
204 


16 IF{P,LT.587,84) SO TO 17 
11=18 

GO TO 11 

IT IFfT.LT. ?2 # 0) GO TO 21 
IF1T.LT. 86.4) GO TO 20 
IF < P »LT .291,92) GO TO 18 
11=16 

GO TO 11 

18 IF ( P.UT.71 .48 ) GO TO 19 
N= I 7 

GO TO 11 

19 11=18 

GO TO 11 

20 IF (P.LT ,291,92) GO TO 21 
N= I 9 

GO TO 13 

21 1FIP.LT.16.-7M) GO TO 22 

11=20 

GO TO 11 

22 N=2 I 

GO TO 11 

21 IF (P.LT .291.92) GO TO 24 

N=22 

GO TO 11 

28 JF1P.LT. 180. 0) GO TO 21 
N=21 

GO TO 11 

28 IF ( P.GE.29.0) GO TO 27 
IF(P.LT.2.9392) go TO 26 
N=2U 

GO TO 11 


205 

206 

207 

208 

209 

210 
211 
.212 
:2 1 1 

214 

215 

216 

217 

218 
219 
.220 
221 
222 
221 

224 

225 

226 

227 

228 
229 


26 N=25 

GO TO 11 

27 IF ( T, GE.64.8 I GO TO 29 
IFfP.CE, 102.0) GO TO 28 
N=26 

GO TO 11 

28 N=27 

GO TO 11 

29 11=28 

11 FP=1P-BP1N) )/OP(N) 

IP=FP 

ifiip.gt.mX(n)) :psm x (n) 

FI = IP 

FsFP.FI 

FP=I.O-F 

FT=(T-BT(N)I/OT(N) 

IT=FT 

FIcIT 

FF=FT-FI 

FTcl.O-FF 

1 = IT* jP ( N >♦ JP*LOC(N j 
U=I*JP(N) 

PTDEflS=FP«FT*R(I>+P*FT*R(I*t >+FP*FP*R< J)*P*FP*R(J*1 ) 

RETURN 

END 
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K> 

tn 


*•****«« FUNCTI0N PTHEAT 


1 

FUNCTION PTHEAT! PRES, TEMP, KTRANS ) 

1101 

0001 

*2 

COMMON /SPHEAT/CP( 8211 »CV(g21 ) 

I10M 

0002 

11 

DIMENSION UOC 121) . 0Ptl9) ,MX 1 1 9) «BP t |9) ,DP 1 19) .BT 127) .DTI 1 9) »PS( 1 2) 

nos 

0001 

4 

ItTSI I2).TLU0) 

1106 

DOOM 


DATA PS/|,022»2.»M.»8,t |M.,2S,*M1.*<i9,,99.t l28.»ISi,f 160./ 

1107 

OOOS 

6 

DATA TS/2M.8MS, 27. OT *29.8 1 • 11. OT. 16. 18. 19.?6*MM. 1 2,48.11 *SI .97. 

1108 

0006 

j?' 

ISM.79.S6.72.S7.M6/ 

1109 

0007 

8 

DAjA LOC/I ,S0,7t» I 11,111, |M|, 170. I6S,228,26M,3M8»1?2,M26»M92,S28. 

1110 

0008 

9 

IS8M.626f6l8.77M.6SM.6B2.69M.7l 8/ 

111 1 

0009 

10 

DATA JP/7.1,6.S.2fM,9,9,u,7,M.9,6.6.7,-7,2,2.S/ 

1112 

0010 

1 1 

DATA HX/S.I ,M,3.0.2.2.M,2,S,2,7.M,M,S,S.0.0.1/ 

mi 

001 1 

1 2 

data BP/O, »20. »0,» 1000. .100. .-1000.(1469,6.0.. lM69i6.S8T.8M. 887. 84 

him 

0012 

n 

l»O..IOO.»IO0..MO,fMO,.O,.O,.l,/ 

ms 

0011 

m 

DAtA BT/2600. *?600.. 2600. .2600..800,. 100.. 120. » 120 .»2S.2»27i.72i» 

1116 

00 1 M 

IS 

|8| . .2S..S6..26, .Ml . »2S. *2S. » 2600 . *SOOO. .SOOO . .SOOO. *SOOO./ 

HIT 

OOIS 

16 

DATA. DP/S. .MO.. 200.. 1000. .M900. .2000. » 1 1 7S ,68. 291 ,92. || 7S.68. 

1118 

0016 

I'T 

IIM6.96. IM6.96.77.M8f 100. . 100. .20. .20.. MO. »MO.» 1 ./ 

1 1 1 9 

0017 

18 

DAt*; DT/M op.. MOO. .MOO. *800.. 600.. IOO.» 10. .10.. 12,6.9, .1,6.9, »Si. 

1120 

0018 

19 

IS. ,M. ,8, .4. .8. .200,/ 

1121 

0019 

20 

DAt» ; TL/ 2M.8M6.27. I7S.29.11 0»1l .299.11, l76.1M.962.16i672.18.1l7, 

1122 

0020 

21 

I19.90M.MI.MS6/ 

1121 

0021 

22 

1 P=PRES 

I12M 

0022 

21 

IF(P.LT.I.O) Rsl.O 

1 12S 

0021 

2M 

TSTEMP 

1126 

002M 

2S 

KTR=KTRAUS 

1127 

002S 

26 

IHT.LT.I26.) GO TO 9 

1128 

0026 

27 

IP(T.LT.2600.1 GO TO S 

1129 

0027 

28 

IE (T .GE.6000, ) T=S999. 99999 

1310 

0028 

29 

IF (P,GE. | 00, ) GO TO 1 

mi 

0029 

10 

IF (P.GE , 10, ) GO TO 2 

1112 

0070 

31 

IF( P.GE.S, ) GO TO 20 

mi 

0011 

12 

Ns 1 9 

HIM 

0012 

n 

N 1 s 1 9 

ms 

0011 

im 

GO TO 11 

1116 

007M 

is 

20 Ns 1 

1117 

OOIS 

16 

Nl=20 

1118 

0016 

IT 

GO TO 11 

1119 

0077 

18 

2 N=2 

1740 

0018 

19 

N 1 s2 1 

I1MI 

0019 

M 0 

GO TO 11 

I3M2 

OOMO 

Ml 

1 IF (P.GE, 1000, ) GO TO M 

I1M1 

OOM| 

M2 

N=1 

I1MM 

0042 

Ml' 

Nfs22 

1 IMS 

00M1 

MM 

GO TO 11 

I7M6 

OOMM 

MS 

M N=M 

I1M7 

OOMS 

M6 

Nl=21 

11MB 

00M6 

MT 

GO TO 11 

I1M9 

00M7 

M8 

S IF<T,LT,300,)00 TO 7 

I3SO 

0048 

M9 

IF (T,tT,800, >GO TO 6 

nsi 

00M9 

SO 

N=S 

ns 2 

OOSO 

SI 

GO TO 11 

nsi 

oost 

S2 

6 N=6 

iism 

00S2 

SI 

GO TO 11 

nss 

00S1 

SM 

7 IF (P.L7, IM69.6 j GO TO 8 

I3S6 

OOSM 

SS 

NC7 

ns7 

OOSS 

S6 

GO TO 11 

nss 

00S6 

S7 

8 NSB 

I1S9 

00S7 
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58 

SO TQ 33 

1360 0058 


*59 

9 IFfP.LT. 587. 84) 00 TO 12 

1361 0059 


60 

IF (P.L7 . 1469.6) SO TO 10 

1362 0060 


61 

N=9 

1363 0061 


■62 

GO TO 30 

1364 0062 


6 T 

10 IF(P.i.T, 1028. 72. AN0.T.GE.72.0.A40.T.L7. 90.0) 60 TO 11 

1365 0063 


64 

Ns 1 0 

1366 0064 


65 

GO TO 30 

1367 0065 


66 

11 N=l t 

1368 0066 


67 

GO TO 33 

1369 0067 


68 

12 IFfT.LT. 81.) GO TO 13 

1370 0068 


69 

N=I2 

1371 0069 


70 

GO TO 33 

1372 0070 


7| 

13 IFfP.LT. 160. ) GO TO 15 

1373 0071 


72 

Ttlsf ( .86867647£-7*P-. ( 26 | 370 f E-3 ) *P*. ( 0351383 ) *Pp43. 8056878 

1374 0072 


73 

IF(T.GT.TM) GO TO (4 

1375 0073 


74 

N=I3 

1376 0074 


75 

GO TO 30 

1377 0075 


76 

14 Ns I 4 

1378 0076 


77 

GO TO 33 

1379 0077 


78 

15 DO 16 1=2.12 

1380 0078 


79 

IF(P-PS(I))f7»|7»l6 

1381 0079 


80 

16 CONTINUE 

1382 0080 


ei 

1=12 . 

1383 OOBI 


8 a 

it tm s ts(i-i > 9(TS(n-TS(i-ih*<p-PS(i-i))/(PS(n-ps(i.n) 

1384 0082 

M 

83 

IF(T.GE.TM) GO TO 18 

1385 0083 

i 

84 

N= 1 5 

1386 0089 

to 

C71 

85 

IFfP.LT, 40.) Ns 1 7 

1387 0085 

00 

86 

GO TO 30 

1368 0086 


87 

18 n=I 6 

1389 0087 


88 

IFfP.LT. 40.) Ns 1 8 

1390 0088 


89 

GO TO 33 

1391 0089 


90 

30 F=P/587 • 84 

1392 0090 


91 

I=F 

1393 009| 


92 

IF(I,GT, 8 ] Is 8 

1394 0092 


93 

FI=I 

1395 0093 


94 

F=F-FI 

1396 0094 


95 

TQ=( 1.0-FI*TL(It1>9F*TUI+2) 

1397 0098 


96 

IFfT.LT, TO) TsTQ 

1398 0096 


97 

33 IF ( T .LE.5000 « ) H 1 sN 

1399 0097 


98 

FP=<P-BP(Nj j/OP(N) 

1400 0098 


99 

IPsFP 

1401 0099 


100 

lF< JP.GT.MX(N) j IP=HX(N) 

1402 0100 


I o 1 

FIs IP 

1403 0101 


102 

F=FP-FI 

f 404 0102 


103 

FP=I ,0-F 

1405 0103 


(04 

FTc(T-BT(Nt))/OTfN) 

1406 0104 


105 

ITsFT 

1407 0105 


106 

FIsIT 

1408 0106 


107 

ff=ft-fi 

1409 0107 


108 

FT=I ,0-FF 

1410 0108 


1 09 

I=lT*jP(N>+lPTLOC(Nt) 

1 4 | | 0109 


1 to 

JsItJP(N) 

1412 0110 


1 1 t 

IFfKTR.EQ.2j GOTO 37 

|4|3 0111 


112 

CTCP=FP*FT*CP(I)+F*FT*CP(I*| >7FP*FP*CPf jj*F*FF*CP( J*fj 

1 4 | 4 0112 


113 

IFfN.LT, 13 , OR. H.GE. 17) GO TO 36 

1415 0113 


1 14 

lFfN.LT. 15) GO TO 35 

1416 0114 


1 15 

:CTCP=CTCP/( 187.506-P+ABS (T-TM)*28. |3) 

1417 01 15 
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B-259 


PTHEAT 


1 16 
I IT 
118 
1 18 
120 
121 
122 
1 28 
124 
12V 


GO TO 16 

15 CTCPeCTCP/fARS (T-TfD/l.fl+ABS (P-187. 506)*. 008008982) 

16 JF (KTR.GE.2) GO TO 17 
PTHEAT=C7CP 

return 

17 PTHEAT2FP*FT*CV( I j*F*FT*CV( !♦! ) ♦FP*FF*CV( J>*F*FF*CV( J*l ) 
IF(KTR.UT,1) RETURN 

ptheat=ctcp/ptheat 

RETURN 

END 


1418 

0 

1 16 

14(8 

01 

1 17 

1420 

01 

18 

1421 

01 

1 18 

1422 

01 

120 

(421 

01 

1 2 1 

1424 

01 

122 

1425 

01 

121 

1426 

01 

124 

1427 

01 

125 
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SUBR0UTINE PVAP0R 



1 


SUBROUTINE PVAPORfTtlfP j 


2 


GO TO (l,2,1,2,S f 6 t 7 r 6,7>IO,1,t2,t1,|U,|S,l6),I 


T 

1 

P=EXP( I2.04-ISI9./T) 


V 


RETURN 


S 

2 

P=I0.**<2.9101-79.82I/T*.0I |628*T) 


6 


RETURN 


7 

1 

P = EXP(|I, 61-1174, /T) 


8 


IF(P,GT.200.) P sEXPI 13. 43-1761. /T) 


9 


RETURN 


10 

S 

P - .82S*EXP( ! 1 . 61- 1 174 1 /T ) ♦. 1 7S*EXP/I 2.04- 1 S 1 9./T) 


1 1 


IFIP.GT.200. ) P = ,82B*EXP( 11. 91-1761. /T>+. I7S*PXP( 12. 04-iRt9./Ti 


12 


RETURN 


n 

6 

P = ExP( 1 1.81-1839. /T) 


m 


RETURN 


is 

7 

P = I0.**<S.73-I0S0./T) 


16 


RETURN 


IT 

10 

P = EXP( |2.1ST9-1I68.T/Tj 


18 


RETURN 


19 

12 

P = EXP( I9.4S-S090./T) 


20 


RETURN 


21 

11 

P = EXP( I6.S4098-7, 1483*1 1000, /T) ) 


22 


RETURN 


21 

19 

P = EXP(|1.90SS-6.6S*(I000./T)J 

td 

24 


RETURN 

i 

2S 

IS 

PL0GI1M = 7,9817-1 .8*1 197,/T 

to 

26 


P = . 0 1 919* ( 1 0,**P|_0GMM) 

o 

27 


RETURN 


28 

16 

PLOGtiM •= 8.287S-I ,8*|99$,/T 


29 


P = .01934*1 IO.**PUOGMM) 


10 


RETURN 


11 


END 
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SUBR0UTINE RH0LIQ 


W 

I 

IS5 

O 


' | SUBROUTINE RHOLTQfT* I *R j ' 

; 2 GO TO (|,2,3,2.S f 6,7,6,7>l0»7fl2.l3»l4*IS»l6},I 

1 I R = 62,43*< l.6983-.0074|8*T) 

4 RETURN 

■5 2 R=I8.2SI327-I«4| 6271 S*T+.0S8929936i*T*T»»00 121 774846*T i *T»T9 

6 I . I2I340776E-4’*T**4-.487R473E-?*T**»; 

7 RETURN 

8 7 R s I7S.8864-,272046«T 

9 RETURN 

10 S R = I29,S-.2S*T 

' I I RETURN 

i 12 6 R s 38,38-.0S83*T 

17 RETURN 

14 7 R = I34.RS-. I69*T 


IS 


RETURN 

16 

ID 

R s 62.43*(.76I88-,000978*T) 

IT 


RETURN 

18 

12 

R = 62.4IS3-.046I I7*T 

19 


RETURN 

20 

17 

R = I3| ,336-.0779S*T 

21 


RETURN 

22 

14 

R = 73, 374-, 0321 8T*T 

27 


RETURN 

24 

IS 

R = 62,43*(2«80S909-.OOI944*T) 

as 


return 

26 

16 

R = 62.43*(I.2S2|4-.0004S3*T> 

27 


RETURN 

28 


END 
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******** SUBROUTINE SPHSEG 


bo 

C5 

to 


1 

2 

C 


SUBROUTINE SPHSEG (PVOL, RAO, H) 

1 

c 



*4 



INCLUDE CONST, LIST 

5 

c 



6 



DIMENSION Y( 1 ) 

7 

c 



8 

c 


CALC. VOL. OF TOTAL HEMISPHERE 

9 



TVOL ■= P 1201 * RAD**1 

10 



GO TO 70 

1 1 

c 


ENTRY FOR ELLIPTICAL SPHEROID 

12 

c 


RAD ALONG AXIS OF ROTATION 

11 



ENTRY ELIPSG ( PVOL. RAD. RPD.H) 

14 

c 



IS 



TVOL s PI201*RPD*RPD*RAD 

16 


70 

IF ( PVQL . NE< 0.) GO TO 80 

17 



H = 0. 

18 



RETURN 

19 


80 

CONTINUE 

20 



XM = PVOL / TVOL 

21 



IF (XM .GT. 0.) GO TO 90 

22 



WRITE (6*1 002) XM 

21 



RETURN 

24 


90 

CONTINUE 

2*5 



PH I 1 = ACOS ( 1 ,0-XMj 7 liO 

26 



DO 100 I=|,1 

27 



XI = I - 1 

28 



Yd) s RAD*(I.O ♦ 2.0*C0S (PHI1 ♦ XI«PI201)) 

29 


100 

CONTINUE 

10 



DO 200 1=1,1 

11 



K = I 

12 



IF (Y(I) .GT. 0. .AND, Y ( I ) . LT. RAD) GD TO (20 

11 


200 

CONTINUE 

14 



WRITE (6,1000) Y 

15 



RETURN 

16 


120 

H = Y ( K ) 

17 



RETURN 

18 

c 



19 

c 


FIND HEAD IN CYLINDER 

40 

c 



41 



ENTRY CYLHED (PvOL,RAD*H) 

42 



H = PVOL / (PI*RAD*RAD) 

41 



RETURN 

44 

c 



45 

c 


CALC, HEAD IN FRUSTRUM OF CONE 

46 

c 



47 



entry frhead (Pvol,rtop,rbot',hgt, Hi 

48 



RBMT = RBOT - RTOP 

49 



VO = (PI/1.0)*HGT/RBMT*RBOT*RBOT*R8OT » PVOL 

50 



H = ( p I*RBOT*HGT»( 1, 0* ( pi *H(JT ) **2*RB|1T*VD T**< 1 •' 

51 


: 

1 (PI*RBMT) 

52 



RETURN 

51 

c 



54 

c 


RAD ALONG AXIS OF ROTATION 

55 



ENTRY CYMSPH (PVOL, RAD, RPD.H) 

56 

c 



57 

.c 


TO CALC. HEAD IN A VOLUME BETWEEN - 
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B-263 


• •***••• SPHSE<S -**•****«■ 


t *58 
*>9 


60 

61 

62 
6V 
64 

, 66 
66 


C SPHEROID 

0 s T.O*RAO*RAD*PVOl. / (Pt*RPO*RPOl 
H :s RAD - (RAO**'} - D)**(l.n»> 

RETURN 

C 

1000 FORMAT (« 0 « I Ox »C0UU5 NOT FIND H FOR HEMISPHERE' 
1002 FORMAT ('O’ IOX ’ERROR INPUT TO SPHSES' FIS.71 
C 

END 


I 


l 
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BL0CK DATA - SPHTDA 


w 

I 

to 

Ol 


1 

2 
7 
4 
9 
6 
T 
0 
9 

10 
I I 
12 
n 
m 
is 
16 

17 

18 

19 

20 
21 
22 
21 
24 
.29 
.26 

27 

28 
29 
70 
7 I 
72 

17 

14 

15 

16 
77 

18 
19 
40 
4 I 
42 
47 
■44 
49 

46 

47 

48 

49 

50 

51 

52 
Si 
44 

55 

56 
97 


BLOCK DATA 

COHMON/SPHEAT/AA(|ll)»AB|lll j*AC(ll|)»A0(llh,AE<ll6j»Arill2i» 

1 AO ( I I I ) » AH (40 ) » . 

2 Al(IIO),Aj(IU),AK(lll)»AL(ttl)*AM(l|6),AN(ll2)»AO(ini 
3 * AP ( 4 I ) 

PATAAA/3, 804 *7. 796*1. 794, 3. 794 *1,793*1. 797* 3, 791 *4, 029* 1.99 It 1.977 
1 ,1.911 .7.927* 1.924 *7. 922.4 .6SS ,4 .2S9 *4. 184,4. IS *4. 17*4. 1 17*4. 107*6 
2, 499, 9. 012,4,799, 4. 672, 4, 999, 4, 909*4. 412, 1 0.9 8 , 6 . 879, 6.0S4.S, 706, S 
1,498*9*796*9. 292*20.06, 10*48*8.646*7. 814, 7, 19*7.(12*6*T76*39. 74*10. 
487* 17. 18, | I.SS* 10. S8*9. 9 | 9, 9. 429, 1.791 *7. 792, 7. 792, 1,924 *7. 9 | 7* 1.9 
S|1*4. I 1 7*4. 076*4. 0S9.4.S 1,4. 7S9. 4, 298,9.76, 4 .93 1»4. 7S7 *7.028,6. 027 
6* S. 62 *9.916*7.927, 7. 107*7*797*1.791 *1.791*3,79) ,7.791*7.79*1.916*1 
7.9| *7.908*7. 907,7. 906* 7. 90S,4.07S* 4, 047 *4.071 *4. 02S, 4.022*4. 02*4.1 
86*4.276,4, |92* 4. (72*4. 16) ,4. 181*4.971,4.981 ,4. 4S7, 4. 40 I *4.769,4.14 
96*6. 07*S. 2 1 *4.92,4.79! *4,719*4.799.7.91*6.276*9.692,9.473,9.279/ 
DAt 4 AB/S. 171*7. 79 *1.79 *1. 789*1. 789. 1.789, 4,02 *4. 014*4. 011*4. OI*4io 
108.4, 74 6*4.29*4.269 *4.29*4. 24*9. 1 77 ,4 . 9 | 2 . 4 . 796* 4 . 726, 4 . 679 , 7 . 47* 7 
2.S | I *3.S04*1,S07* 1,624 *7,622 *1.792 *3. 789 *1.744 *4. 106*4.297,4.746*1 
3.648,1.842*7.961 *4.0 IS* 1.S17* 1.677* 1.708, 3. 749, 7.479 * 1 .SIS* 1 ,S79 , 7 
4.603*3.461 * 3,494*1. S21,7,S42*3.46 1 *3.478*1,494*1.41 | *2.486*2.981*1 
4.196*7.691*3.806*1.784,1.474*3. 187*1.016*2.861 *7. 089 *1.709 *3.498*1 
6, 628, 1,691* 3. 64 *7. So I *1.179, 1,2 *7. 142, 1.474 *7. 489*3,671 *1,737* 1.8, 
■77.744*3.681 *1.419*3.633,3.738,1.826* 1. 903*1.947*4. 03 *4. 04 | ,4.014*1 
8, 744, 3.878, 3.921*1.994*4. 06,4.11 1*4, 221*4. 248*4.247*1. 877*3.9S|*4. 
9018,4.079,4.117*4.179*4.292,4.317*4.147*3.926*1.98,4.073*4.087/ 
OAyA AC /4. 124*4. 142*4.267*4, 717*4,746* 1.774, I, 264,1. 217, |.2*|. 884.1 
1 ,742, | .667, I .487*2.737*2, |S| *2.02S* 1 .947,2,871 *2,406*2.717*2.272*7 
2. II I *2. 792 *2. 454*2. 461*1,668*3.0 IS >2. 789. 2. 642*1. 84 6*3. 27, 2. 968. 2. 
1021 *7.84*7.77*1. I 17*2.961,7.767,7.479*7.29*1, 104* | ,441* I .4 1 4* 1 .49 1 

4* 1 .468* | ,447* I .428, I .414*2.003* 1 .96* 1.922* | .89* I ,862* I .819* I .81 2f2 
9.91 ,2.426,2,197*2.301 ,2.291,2.21 ,2. | 73,7. 19 | *2.967*2.876*2.714,2.6 
■692*2,984*2.929*4,07*1,691 ,1.18 7*1. 1 98 *7, 067, 2. 966, 2.87 |'*9.4 | 7*4.48 
76*1.997*7.69*3,477*1.313,1. 196*9.793*8.081 *4.909,4. | 19*7.844*7.64, 
8 7. 484 *4. 899, 4. R91, 4. 617, 4. 739, 4. 084, 1,879. 7. 7 1 4. 4. 1 4,4 . 37,4 . 39 1 ,4. 
9286*4. 114*7.98*7,841 *7.739*3.946*4.069*4.087*4.019*3.994*3.863/ 
DA T AAD/1, 90S *1.692* 3. 8 I 9, 3. 88 I *3. 89 1 *1.868*3.824*3.378*7,916*7.644 
I * 1 . 7 | 2* 1.77* 3.769, 7,767*9.4 | 7, 4. 48 6* 7. 9 9 7. 1.69, 5, 82*4.799*4, 229*7. 
2862*9.887,9.022,4.47*4.071,9.639,5. 107,4.977,4.167,9.21*9.094*4.64 
■ 71*4.291 *4, 894*4. 897, 4. 617', 4. 7 79, 2 . 47, 2. 7 3, 3. 077, 1,99 1 *4. 192,4.998. 
49 *699 * 9, 946* 9* 797, 2*482*2* 673 , 2. 9 1 6 * 7. 209* 3.949 * 7, 9 1 6*4, 104 *4.677* 
94.849*2.903*2.646,2.873*7.031*3.299*7.496,3.729.7.949,4.14*2.939,2 
6,699,2.799*2.942*3.1*7.264*1.41*1.99*3.779*2.982*2.681*2.792,2.907 
7*3.026*3. 146,1.27*7,191 *7.509*2.641 ,2.771 .2.822,2.913,7.007*7.097, 
83. |9| *3.284,3.378,29.22*70.07*19.61 *40.29,44,37*48.49,24.47,30. 12* 
976.7,42.16*47.08,91.94*22.95*29.49,36.99.47.16*48.74*94.28,20.18/ 
DA T AAE/27,69* 36, 2,47. 19,49.41 *99.98, 16. 12.24.74*74,9*42.7,49.19*59 
I .9, ) 0 , 11*20.61*31 ,97*40.99*48.07*95.4* 1 . 494 * | 9 , 1 1 * 28 .99 . 38 , | I *46 , I 
25*97.98,-19.29, |o,62*24.9| , 35 . *47.5* 5| ,78*0.,8. 28* 17.76*30*96,79.5 
11*48.71*0. *-99. *4,28* 17.27*31 .9,42.96*0. *0.*-9, II ,7,79, | 7. *72. 76* I 
4| .91,-9.296, I .99,0* *. I I * J6.88* 15.48, I I . *4. I 8*. 1 1.56*0. * 0**21.81 . I 8 
9.76* I 3.42 *-| . 68*- 17,82*0, *71 .09*25.95* 27.7, 16.41 *1.2 *-!0.1! *38.09* 
672.9,31.42*32.03*20,87,9,04,44,99*39.79*19,97*39.66,34.99*24,46. 10 
727,* | |48. t 1238. * HI | , 1 1762.* 1407.* I449..962.7* 1099., 1202., (289.* II 
844,* 1394.* I418..869,* 1026.* I 142., 1274,, 1701 .* 1797.* I409,*727.9*906 
9,9*1040.*! 149., 12(9., 1282., 1319. *911. 7*742. | ,899.9* (016. , 1099,/ 
DAjAAF/l 170,* 1270. *313. 8, 9 12. 8, 696,3*078, 4 *934. 9. 1019.* 1 087**9 I .2, 
1 290.2*474,2*607. 4 *720.7* 8 1 4. 9* 891. 8,0. *0.* 1 97.4 *702*9*477. 2 *958.1, 


1429 0001 

1470 0002 

1471 0007 

1472 0004 
1477 0005 
1474 0006 
1479 0007 

1476 0008 

1477 0009 

1478 0010 

1439 001 I 

1440 0012 

1441 0011 

1442 0014 
1441 0019 
1444 0016 
1449 0017 
1546 0018 

1447 0019 

1448 0020 

1449 0021 

1450 0022 

1451 0021 
1552 0025 
1551 0029 

1555 0026 
1559 0027 

1556 0028 

1557 0029 

1558 0010 

1559 0011 

1960 0072 

1961 0071 

1962 0019 
1961 0019 
1969 0016 
1969 0017 

1966 0078 

1967 0079 
1568 0090 
1969 0091 
1570 0092 

1971 0097 

1972 0084 
1471 0045 
1474 0046 

1479 0047 

1476 0048 

1477 0049 

1478 0090 

1479 0091 

1480 0092 

1481 0091 

1482 0094 
1401 0099 

1484 0096 

1485 0097 
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SPHTDA 


******** 


¥ 

to 

a> 

ui 


58 

<59 

60 

61 

62 

61 

64 

65 

66 

67 

68 
69 
'TO 


74 

75 

76 

77 

78 1 

79 
60 

8 I 
82 - 
81 
64 i 

85 

86 

87 

88 

89 

90 

9 I 
'92, 

91 

94 

95 

96 

97 

98 

99 


100 

501 

ioa 

101 

104 

105' 

106 

107 

108 
109 


I 10 

111 

112 
111 


i in ; 

! I 15 


2651. 1*141. 4* 72. 4,-162* *20. *|5|.5*2T6. 4. 178.8*929, 7*6?2. I *477. 8, 288 
!.!» Il4* *90. 2r» 120, » 1489. » 1269.* I 082. *907 .6*759.5*607.4*444.7*2017. 
4* 1 8 17. *1614, *1469,, (111., | 1 95. * I 051 . *2584 . * 2161 . » 2 I 80, , 20 I 6 , * 1 8ft I . 
5* f75|,* 1 620, *11 IS «*29| I. ,2726, *2861. *24 28. *2299, ,2 171. *1.566 *1.557 
6*1.78* I .77 *2. 059. 2.017 *2, 177 *2. Ill *2. 926* 2. 724* I ,09| *1.21*2.46*5.2 
786*2,456*1.245*2.428*1.411*2.414*1.025*2.461*2.811*2.461*2.7*2.465 
8*2.618*2.47*2.612*15.14,16.81*11.18,11.55*10.58,9.919,9.429*54.51* 
926.45*20.19,17.14,15.62,14.45*11.58*64.17*18.42*29.61*25.11,22.66/ 
DA yA AG/20 • 8 | *19.41.56,11*49,66*19.91*14.49.10.94*28.41*26.46*9.911 

I *7.921*7. 101* 15.62, 10,89,9.417*22.66, 15. 12, 12.71,10.94*20.12* 16.85 
'2, 7, 9l*6, 276, 5. 692, 5, 411, 5, 27 9, 5. 171*10.9,7. 914*6. 881*6. 417*6,14*5. 
195* 15. 15* 10.11 »8. 585*7. 82*7.164*7.052* 17.41,11.27*10.71*9.57,8.89, 
48.424,5. 171*4.912,4.796,4.726,4.679,7.052*6.278*5.915*5.711 ,5. 59 
59.796*8.258*7.575,7. 1 67 *6. 89 1*0. *1.802. 1.799,1.797*3.797,1.796*1.8 
686*1.875,1.87*1.867*1.865,4.01 ,1.979*1,965*1,956.1,951 *4.216*4. 19, 
74.106*4.085*4.072*4,876,4,408,4.911*4.28 9,4.259,5. | 9 1 ,4.855*4,707, 
84.618*4.558,6.202,5.582*5.108,5. 1 44 *5.012 «7. 785 *6. 7 1 9*6. 218*5.954* 
95.761 , 10. 15*8. !«6* 7. 6)9,7. 155,6.819,11.59* 10.8*9,588*8.865*8.972/ 
DATA AH/ I 8, 14, 14.09* I 2 . 29 , 1 I . 2 1 * I 0 .4 7 , 24 . 1 8 , | 8 . 44 * 1 5. 86 * 1 4 , 12 , 1 1 . 26 
I ,11.64 *29. 93, 20. 41 *|8. 28, |6. 82, 40. 2* 10. 51, 25. 96, 21. (6*21, 21, 48, 9,1 
27.9l,12.98*28.ft9*26,45,55.98*45.99*l9.2T,15.21*12.11*59.|8*SI.55*4 
15.76,41,58*18.42,57.08*54.85*50.68*47.04*44.04/ 

OArAAI/2. 8 19,2.8 ( | ,2.809*2.809,2.808,2.808,2.808,1.012,2.961,2.95* 
12.944*2.94,2.918*2.916*1,624*1.255*1. 18 6,1. 155*1. 116*1. 124*1. 1 14,5 
2, II 1*1.972*1. 717,1.604*1, 517*1.491 *1.457, 9.131, 5. 6 | *4.898, 4. 582*4, 
1194*4.265,4. 17, 17. 15,8.821*7.201,6.481 , 6 , 049, 5. 754 *5, 516*2?. 47, 14. 
422*11.11*9.705,8.862*8.284,7.855*2.808.2.807*2.807*2.918*2.911*2.9 
528*1.1 24 *1.036*1. 07*1*492* 1.151* 7.296*4, 268,1. 878*1. 7|9, 5. 762*4 . 86 
65*4. 498,8. 1,6. 511* 5. 8q9* 2 . 8o7, 2 . 8o7* 2.806*2. 806*2. 806*2.806*2.91 1 , 
72.925*2.921,2.922,2.921*2.92,1.085.1.055*1.044*1.019*1.016*1.014,1 
8.151*1.219*1. 199 * 3 . | 8 | , 3 . | 7 , 1 . |89 *1*879 *1.559. 3.446* 1 . 195 ? 1 . 165 * 1 . 
9745,4.867,4. 129*1.867,1.751*1.682*1.72,6.541*5.077*4.557,4.127/ 
DAT* A J/4. 189*4.095*2.806,2.806,2.805*2.804,2.801*1.014,1.029*1.026 

I, 1.024,1.022,1.145,1.294,7.271,1.257,1.247,4.095,1.861,1.757,1.604 
2, 1.652* 2. 465* 2*509, 2, 519, 2. 52* 2. 619*2. 637* 2. 8 07* 2. 801*2. 884, 2.99^, 

II. 078,1, | 14,2.728,2.802,2.86,2.9,2.578,2.626,2.661,2.689,2.506,2.5 
418, 2, 562* 2. 578, 2. 482 * 2 , 504*2*52,2. 51*2. 48 ,2.489*2, 5,2.509*) .602*1. 
5614*1.665, 1.682*1.694, | .706, | .758. I . 8 , | , 8 18 , | . 876 , | . 891 , | , 9 | | , I .’2 
69,|.947,| .961*2.005*2.046*2.084.2.215,2.216*2.217,2.219,2.229,2.21 
18* 2. 27 1*2*104 ,2. 118*2. 513*2, 541*2. 552*2, 56*2, 571*2,58* 2. 617*2,651* 
82. 684, 2. 759, 2. 776*2. 79 1, 2. 806*2. 82. 2. 8!!, 2. 882* 2. 92, 2. 95 1 *2. 892, 2. 
99 | *2.926*2, 941, 2. 958 *2.972 *1.02 1*1. 062* 1,09 1*2, 94, 2.956* 2# 971/ 

DATAAK/2.9R9, 1.001, 1.0 15* 1.061,1. 101 *1. 114* | .111*1.081*1.06*1,05*1 
1.151, 1.135* 1.125, 1.1 1 2* 1.496, 1.498, 1.494* 1.49 1 *l.572» 1.591, 1.601* I 
2.601* I .595, 1 .61. 1 .655, | .672, 1 .617* 1.662. 1.696*1 .724* 1.651 * I .699* | . 

. 1718* | .771 * 1 ,691* 1.741 , 1 .782* 1 ,8 |9, | ,757, 1 .807*1 .85? 1,888* I, |71f I. I 
471 * I . 168* | . |65* I . 16, I. 156, 1 . 149. |,145*| ,14| *1,14* | .118* | .114*1 .112 
5* 1.129* 1.456, 1.455, 1.454* 1.451* 1. 452, 1.45, 1.449* |,5 1 7* 1.5 1 9, |.52 1* 
6 | .521* I *525, t .526,1*527*1.551,1 .552,1.516, I .561 , | ,564, | .569, | ,572, 
7 | . 581 * I .571*1.571, I, 575, 1,581*1.587* I, 51 1*1. 61, I, 59 l*|, 584 , I, 584*1 
8.589,1 .594, | .6*1 ,61 * 1.6 1 *1.608* 1.608, 1.6 1* 1.6 1 5, 1.621, 1.616*1.621* 
9 1 .627*1 ,612* I .615,1 ,641*1 .646,1 .612*1.64,1 .646*1 ,651* I .659, | .665/ 
OAtAAL/I . 671 *1.665,1 .671, 1.68,1.687, I . 6>1» 1,7* I .707, 1.715,1 .721,1. 
1711 » 1.718, (.744, 1.751, 1.757, (.583*1. 57|,|.57l *1.575, 1.597, 1.578, I. 
2574* 1.579,1.608*1 ,587*1 .581*1.582,1.61,1.596,1 .58?* (.589* 1.61,1.60 
14 * | .598, | ,598,| . 6 1 * | . 6 1 * ( . 608 * 1 . 608 * 1 . 485 * 1 .51 | , | .534* f ,557* | .577, 
41.604*1.621*1.621,1.61*1.495*1.516, 1.514*1.552*1.569*1.581*1.596*1 
5,606, 1,61 *1,5 16* 1.512* 1.548* 1,561* 1.577* 1.59 1. 1.602* 1.6 1 *1.616*1,5 


1486 0058 

1487 0059 

1488 0060 

1489 0061 

1490 0062 

1491 0061 

1492 0064 
1491 0065 

1494 0066 

1495 0067 

1496 00*8 

1497 0069 

1498 0070 

1499 007! 

1500 0072 
|Sot 0071 
1502 0074 

1501 0075 

1504 0076 

1505 0077 

1506 0078 

1507 0079 

1508 0080 

1509 0081 

1510 0082 

1511 0081 

1512 0084 
I 5 1 1 0085 
1 5 1 4 0086 
1 5 |5 00«7 
I5|6 00«8 
I5|7 0089 
1518 0090 
1 5 | 9 009| 

1520 0092 

1521 0091 

1522 0094 
1521 0095 

1524 0096 

1525 0097 

1526 0098 

1527 0099 

1528 0100 

1529 0101 

1510 0102 

1511 0101 

1512 0104 
(511 0105 

1514 0106 

1515 0107 

1516 0108 

1517 0109 

1518 0110 

1519 01 II 

1540 0112 

1541 0111 

1542 0114 
1541 01 15 


LMSC-A991396 



******** SPHTDA ******** 


w 

l 

co 

03 

03 


I 16 

in 

118 

1 19 

120 
12! 
122 
1 21 

124 

1 25 
|26 

1 27 

128 
129 
no 
Hi 
112 
111 
114 
ns 
116 

117 

118 
1 19 
mo 

14 ! 

I M2 
|41 
1 44 
(45 
1 46 
|47 
1 48 
|49 
ISO 
|S| 
|S2 
1ST 
IS4 


649* 1 .562* | .574*1 ,585*1.597* I .608 . t .6 1 9* I .627* I ,612* | .595* ) .606* | .6 
7 15* I .625* | .614* I .642* 1.652* I .66*1.665*1 .656* 1 .664* | ,671 * 1 ,679* | .68 
86* 1.691* f .701* 1.708* 1,7 15* I. »1I* I. 132*1. Ill* I. 111*1.117*1. HI* 1.24 
9* 1.219* 218 *1.277* 1. 216* 1.215* 1.142* 1.718* 1. 115* 1,112* 1, 71 * 1,728/ 
OAtAAM/I , 417*1 .412* 1.409,1 .406, I .404* | .402, I .464* I .462* I .46, I ,459* 
I I .457, I .456, 1.501*1.497*1,495*1.495(1.495*1.495,1.565*1.515*1.527* 
2! .52* | .52* t .522* I .754*1 .78*1.564*1 .'146* I .54 1 , 1 .54 1 y | .941 * 2 ,1* 1 , 7 1 . 
II .585* I .564* I .557*0. *2.4? I .808* I .651* | .594* I .571*0, *0.* I .62, t .681* 
4 | .624* I .59 | * | .587*2.7*7.1 *0.* I .672* | .608* I .71*1 .976*2.608,1 .56*0.* 
50.* 1.522* | .66* 1.776, I .617* I .495*0.* | .527, I .589,1 .679* | .667*1.609*1 
6.56* | .522, | .567* | .608* | .648* | .627* | .601 * I .52* I .551 , | .579, | ,617* | f 6 
722. 1 ,609* | . |5I* I . 152* 1.152* I. 152* I . |51*| . 151* | . 151*1.247*1.242* 1.2 
84 1, 1.24 |,|.24* 1.24* |.24, 1.127, 1 .726, 1.725* 1.724 *1,721* 1.722, |.12 I, 
9|.797,l,792*|.19|,l,79*|.789*l.188.|.187*l.44*l.479,|.418*|.419/ 
PATAAN/I .417* I .476, I .476. I .478. I .474* I .477* I .472. I .47 I , I .471 , I .47* 
I 1 .508, 1, Sol, 1.506*1 ,504* | .501 * 1 .5, I ,498 *0 . *0 . * I .547 * 1 .546* I .548* I . 
2579.1.517, 1,646, | .78, | ,978* I .602,1 .6)5*1.628,1.641* | .544* | .607* I .6 
19*| .805* | ,978*2.746*2,652* I ,SI 7* | .544*1 .578*1.627* | .687* | ,787*1.46 
42* I .504* | ,5(8* I .574* I ,55| * I ,57* 1.592* | ,6|8* | ,498* I .508*1 ,517* I ,526 
5 *1.576 *1.546* 1.556, 1.499* 1.506, |.5l 2* |,5I 9 *|,526* 1.572 *1.519, 1.129 
6* I, 1 1*1. 22, |.22* 1,71 *|.707* 1.18. (.178. 1.412, 1,41* I, 477* 1, 469, 1,4 77 
7* 1.7, 1.475* 1.67 1, 1.476* 1.61 9, 1.477* 1 .544* 1.478 »|.51 7* 1.478, 1.504* I 
8.481 * 1 .498* I .485* 1 .499* 29',47« 14.22* 1 I. | 1*9,705*8.862*8.284*7,855*4 
91.57*21 ,9-j, 16.86* 1 4,5| , 11.08, 12.09. | 1 ,76*50.02*70.81 *24. 1 ,20.75/ 
DATflAO/ 18.65*17. 1 7 » 1 6. 06 * 44 . 26 * 78 , 6 1 * 1 1 . 58 * 27. 55 *24 . 89 * 22 , 97 , 2 | . 48 
I *8.1,6.577*5.809, 11.08*9,068.7.801, 18.65* 12.54* I 0.56, 24,89 f 1 6.66 r I 
21.88.6.61) *5.077*4.597*4,727*4,189,4.095* 10.09*6.51-7*5.6*5. i9l ,4.9 
147,4.78* 12.6*8.52*7.052.6.795*6.001 ,5.772* 16.8, 10.95,8.824*7.865*7 
4. 289.6. 894, u, 095*7.861 *7, 757, 1.694, 7. 652*5. 712*5, 06*4. 761 *4. 584 *4. 
546,8.056*6.756,6. I 77 , 5 . 8 | 6 * 5 . 449 . 0 . ,2. 817*2. 817*2. 812.2, B||, 2, 81I. 
62.899,2.888*2.887,2.881*2.879,1,018,2.989,2.976,2.968,2.967*1.214, 
71. 142,7. | | | f 7.092*7,079*7,55*1.794*7,725*1.284*7.255*4. 1 19* 1.809,1 
8,672.7.59*1,574,5.044*4.476*4,225,4,074.7,972*6.478*5.504,5,071.4. 
98 1 1*4.697, 8,587*7. 01 4*6.1 1 4*5.895*5.609* 1 1.54*9, 117*8.061 *7.417/ 
DA T AAP/6.976* IS, 49, 11,99,10.42*9.471*8.822,20.48*15,66,17.46,12.19 
I* I I .22*26.41 ,20. IS* |7,27* |5.45* 14,22*72,91*25.75*21 ,67* 19.4, 17.81 * 
2l9,24.70,o2 f 26,6l f 27,87,21 .91,44. |4, 16 ( 2,,1 | ,69,28,62*26.78*46,18, 
140.51,76,27,71.17*10.8*44.47,42.64,19,57,76.91*14.71/ 
end 


IS44 

01 

1545 

01. 

1546 

01 

1547 

01 

1548 

01 

1549 

01 

1550 

01 

1551 

01 

1552 

01 

1557 

01 

1554 

01 

1555 

01 

1556 

01 

1557 

01 

1558 

01 

1559 

01 

1560 

01 

IS6I 

01 

1562 

01 

1561 

01 

1564 

01 

1565 

01 

1566 

01 

1567 

01 

1568 

01 

1569 

01 

1570 

01 

1571 

01 

1572 

01 

1571 

01 

1574 

01 

1575 

01 

1576 

01 

1 S77 

01 

1578 

01 

1579 

01 

1580 

01 

1581 

m 

1582 

01 
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PROCEDURE DEFINIT10N PR0CESS0R - SPUMP 


1 SPUMP* PROC 

2 C 

T REAL NSGfHSS»HUZ»NU 

•H C 

5 COMMON /SPUMP/ OlfEFFQ, H* DNS, XNS, NSC, NSS, NUI, NU(2)» U 

6 C 

T END 


V 

co 

Oi 

-<i 
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SUBR0UTINE ST0C0N 


ROUTINE NAME - ROUTINE TO PACK THE FIRST •*' 

•* WORD OF THE CONFIGURATION '*• 

■•* table. 

•* ROUTINE LANS - FORTRAN V UNIVAC 1108 EXEC 2* 
* PROGRAMMER - R. BOLLINGER I9N1 102 269V! * 

•* DATE COOED - VI t /TO . •* 


SUBROUTINE STOCON(IDX) 

***** EXPLANATION OF THE CALLING SEQUENCE 

.■* 

***** J C X - INDEX OF THE CONF ! GURATION TABLE, . 

INCLUDE CCNFlG 
C 

DO 10 II :s 1,6 

IF(ICNFIGIH).EQ.O) tCNFIGCin =0 
CONF IGdDX, | ) = GPBYTE ( ICNFIGd I ) ,6,C0NFIG( IDX, I ) , 1 1 ) 
10 CONTINUE 
C 

RETURN 

END 


> 


CD 

CD 


CO 

CO 


LMSC- 



I 


SUBR0UTINE ST0DTA 


7 

to 

05 

co 


I 


I 


! 


I 


I 


I 


1 

2 

V 

4 

5 

6 
T 
8 
9 

10 

n 

12 

IT 

14 

15 

16 
17 
IB 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
70 
II 
72 
11 

14 

15 

16 

17 

18 
19 

40 

41 

42 
41 

44 

45 

46 

47 

48 

49 

50 

51 

52 
51 

54 

55 

56 

57 


C 

C 


C 

c 

c 


c 


e 


c 

c 

c 


c 

c 

c 

c 


SUBROUTINE STODTA 

INCLUDE CAPU 
INCLUDE :CCNFI6 
INCLUDE .CCNTRL 
INCLUDE CECLSS 
INCLUDE CFLRAT 
INCLUDE CHEX 
INCLUDE CHSORC 
INCLUDE CIOUNT 
INCLUDE 'CMATRL 
INCLUDE CKACES 
INCLUDE XONST 
INCLUDE CPAGE 
INCLUDE CPUHP 
INCLUDE CTANK 
INCLUDE CTURBN 
INCLUDE TABLOK 


'****•' PD P CAPU ***** 


DATA ( (LAPU| ( I,J),Is(,4),J=| 1 8 ) 

1 'OXYGEN LOADED (LBS)' 

2 'TOTAL LOADED (LBS)' 

i 'oxy, max. flow (lb/secj* 

4 'WOOT OX-TURB-GC CLB/SEC)' 


/ 'PROPELLANT TEMP. (DEG-R)', 
• 'HYDROGEN LOADED (LBS)', 
» 'PROP. USED BY APU (LBS)', 
, 'HYO, MAX. FLOW (LB/SEC)', 
/ 


DATA ((LAPU2(I,J),I=l,4),Us|,lI) t 

1 'GAS GEN, CONSUMPTION ' , 

2 'AREA OF STORAGE TANK « , 

1 . 'H2 VENT - ABSORB TK LEAK' , 

4 'WT. OP ACCUMULATOR TANK ' , 

5 'WT. OF RESID, IN ACCUM. ' * 


•WT. OF CIRCL. COMPRESSOR', 
'VOLUME OF STORAGE TANK ', 
'WEIGHT OF STORAGE TANK ', 
'WT. OF RESIDUAL IN TANK ', 
•CAPACITY OF ACCUMULATOR ', 
'TOT. WT. OF PROPL. REQD.*/ 


DATA ( (LAPU7 (l,J),Icl,4) . Js I , t I) / 

1 'WTG. OF FLUID TO G.G, I , 

2 'VOLUME OF STORAGE TANK ' , 

1 'WT H2-ABSRB TK+PMP HT LK' * 

4 'TOTAL WT. OF PROPELLANT ' , 

5 'ACCUMULATOR CAPACITY ' , 


'TEMP, OF 6,0, EXHAUST ', 
'SURF. AREA OF STO. TANK ', 
•HEAT LEAK INTO STO, TANK', 
•T0T.H2-VENTED FOR HT.LK.', 
'STORAGE TANK RESIDUAL ', 
'ACCUMULATOR TANK RESlOUL'/ 


***** POP CONFIG 


DATA ( (LCNF) (1*0), Is T, 4), Jr 1,6) / » CONSUMER WEI GHT - LBS ' , 

1 'OXIOYZER SYSTEM WT, -LBS' , 'OXID INSULATION WT - LBS' , 

2 'FUEL SYSTEM WT. - LBS ' , '-UEL INSULATION WT - LBS' , 

1 'TOTAL SYSTEM WT. - LBS ' / 

***** pop CCNTRL ***** 


DATA ( ( InBLK< l,I,J),Ixl,5),Jn|,2) 
DATA (aNBLK(2,I,J),I = l,5),J=(,2) 
DATA ( ( INBLK (1,I,U),I’S|,5),js|,2) 
DATA ((INBLK(4,I,J),I=!,5).U=I,2) 
DATA ( ( If|BLK( 5, 1,J),Iel,S),Jsl,2) 


SUB CRIT. 

/ I , I , I ♦ I ,0, 
/ I, l, I, I, I, 
/ 0,0, 0*0, 0* 
/ 0 , 1 , 0 , 1 , 0 , 
/ 0 , 0 , 0 , 0 , 0 , 


SUPER crit; 

1. 1. 0. 1.0 / 

1.1.0, (,0 7 
0,1, 0,0*0 / 
0,1,1, 0,1 / 
0 , 0 , 1 , 0,0 / 
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******** 


5T0DTA 


******** 


td 

to 

-a 

o 


58 

DATA 

(KSUeC(I.I)iIS|,N8RSR) / 

6* 

4, 

IQ, 9, 


If 

(Of 

Ilf 

2/ 

S9 

Data 

(KSUBC(2,I),IS|,NBRSR) / 

6 • 

1, 

ro, 

Ilf 

2f 

Of 

0, 

0/ 

60 

DATA 

(KSUBC(1*I)«I=1»nBrsR) / 

?♦ 

0, 

0, 

0, 

0, 

Of 

Of 

Of 

0/ 

61 

DATA 

(KSUBC(4,n,I=(,NBRSR) / 

5* 

4, 

0, 

0, 

0, 

Of 

Of 

Of 

0/ 

62 

DATA 

(KSUBC(5»I),I=I ♦NBRSR) / 

6f 

4, 

to, 9, 

8, 

If 

1 Of 

Ilf 

2/ 


61 

64 

65 

66 

67 

68 

69 

70 

71 

72 
71 

74 

75 

76 

77 

78 

79 

80 
81 
82 
81 

84 

85 

86 

87 

88 

89 

90 

91 

92 
91 

94 

95 

96 

97 

98 

99 
100 
101 
102 
101 
104 

r os 

106 

10 7 

108 

109 

110 
111 
112 
111 

114 

1 15 


DATA JApUS { 2 * I ) « JAPUS ( 2 1 2 ) / 1i 4/ 

DATA NANSYS / I ACP ' , ' APU * i ' EC/ < . ' FUE ' * I OMS ' / 

***** pop CFLRAT ***** 

DATA ((LFRT(ItJ)f tstflltjsl,?)/ 

1 1 WDOT OX-TURB.-G.G. • » IWOOT HY-TURB . -G . G. ' * ' WDOT BOTH TURB,-G6'f 

2 'WoOT OXY HEX.-G.G, 1 , 'WoOT HYO HEX , -G . G WDOT BOTH HEX.-G.G', 
1 'TOTAL F.LOWRATE **'/ 


***** pop CHEX 


***** 


DATA 


(<UNAM(If J),Isl,2),J=lf4) / 

BOILING ' , 'SUP-CRITICAL', 'PARALLEL-FLO' , 'COUNTER-FLOW'/ 


I 

DATA ( (LHX I < I *U ) , 1= I *4 ) , J= I 

1 'THERML CONDUCTANCE RATIO 

2 'COLD FLUID DELTA - P 

1 'NUMBER OF TRANSFER UNITS 

4 'COMPUTED VALUE OF W/UA 

5 'WEIGHT OF HEAT EXCHANGER 
DATA f(LHX2 (If U), 1:1,4), Jr| 

1 'COLD FLUID INLET TEMP 

2 'COLD FLUIO SPECIFIC HEAT 

1 tHOT FLUIT INLET TEMP 

4 'HOT FLUID SPECIFIC HEAT 

5 'COLD SIDE EFFECTIVENESS 

6 'TOTftL EFFECTIVENESS 

T 'HEAT EXCHANGER DIAMETER 


10)/ 

•hot fluid flow rate •» 

'CAPACITY RATIO •» 

(COMPUTED VALUE OF UA ', 

'WEIGHT OF SUBUNIT •» 

'HEX SUBUNIT TYPE *** '/ 

14)/ 

'cold r LuiD outlet temp 
'COLO FLUID flow rate ', 

'HOT FLUID OUTLET TEMP i, 

•hot Fluid flow rate '* 

'HOT SIDE EFFECTIVENESS 
'HEAT EXCHANGER UA/A-WALL', 
'HEAT EXCHANGER LENGTH '/ 


DATA LHX1 / 'HEAT EXCHANGER CHARACTERISTICS' / 

***** pop CHSORC ***** 

DATA ((LHS!(I»J)tIs|f5),JSI,6> / 

I 'GAS GENERATOR CHARACTERISTICS ' t 'GAS GEN, FLOW RATE - (LB/SEC) '♦ 
2 ' GAS GEN, PROPELLANT KGT.-(LBS) ' . 'GAS GENERATOR WEIGHT - (LBS) '» 
1'CUMULATIVE GAS GEN. FROP. WTG. 'WEIGHT OF HEX-GAS GEN. ASSY. '/ 


DATA ((LHS2(I»J)fI=lf5),J=l,IM) / 

I 'SPEC. HEAT AVAILABLE-(BTU/LB-R) ' * FTOTAL HEAT REQUIRED 


(BTUj 


2 ' HOT FLUID REQUIRED - (LBS) ' , 'CUMULATIVE HEAT REOD, — (BTU) 

i'cumulatIve hot f l uid •- ( L bs) * « 'waste heat utilization data •» 

4 ' MAX HOT FLUID FLO-RATE (LBS/HR )', 'CYCLE MAX REOD ENERGY - 02 HEX', 
5 l CYCLE MAX REOD ENERGY - N2 HEX', 'CYCLE MAX REOD ENERGY- 02 TANK', 
6 'CYCLE MAX REOD ENERGY- M2 TANK', 'TOTAL Max ENERGY - HEX ♦TANKS', 
7 'TOTAL ENERGY FOR MISSION SPAN ', 'TOTAL ENERGY REQMT — KW/HR5 »/ 

***** pop CIOUNT ***** 

DATA IOUNIT/ 14, 2|, 22*21,|9»29,|5, 16, 1 7, 1 »85,26,2T,28/ 

DA7A I IN, IOT / 5,6 / 

***** pop CHATRL ***** 
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116 

117 

118 
1 119 

120 

121 

122 

121 

1 24 

125 

126 
'127 

126 

129 

no 

m 

112 

m 

114 

115 
,116 
117 
>1 18 
119 

;imo 

,141 

(42 

141 

144 

145 

146 

147 

1 48 

149 

no 

ni 

152 

151 

154 

155 

156 

157 

158 

159 

160 
I 6 1 
1 62 
161 

164 

165 

166 

167 

1 68 

169 

170 

171 

172 
171 


C 


C 

c 

c 


c 


c 


c 


c 


c 


c 


c 


DATA ( RH0L< I ) f 1st , 5)/501 . 120* 1 76.256* 1 69.144*5 1 1 .488*276.480/ 

DATA (RHOI (I)*I=I *9 )/2.|U* 2.45*2, 80 *0.816*0.59,0.65,5.0*2.2*1.0/ 
DATA {RHOISt 11,1=1 *91/0.0428*0.0490*0.0280* 0.027867* 0.01475* 

I 0.021667,5.0*2.20*1.0/ 

DATA(MINTHK(1 )* I=| , |5)/0i 020*0. 025. 0.028*0. 020* 0^016. 0.015* 0.058* 

I 0.065,0.042*0.020,0.049*0.081,0.095*0.049,0,015/ 


***** pop CNAMES ***** 


DATA (FNAME( I), 1=1*18)/' GAS ' • ' ENGI NE ' , ' L INE • * ' CONTRL ' » • FITIN6* 

1 .'TAP 1 * 1 TEE i, 'ELBOW 'VALVE ','REG ' 

2 • , • A£CUM '.'TANK ' * • PUMP ','HEX * * 'TRBINE' 

1 *'F-CELL'.'EC/LSS'.'END •/ 


DATA ((LO 
I 

:2 

1 

4 

5 

6 
7 
B 
9 
■T 

1 

2 

.1 

4 

5 


(I,J)*r=l,9),Js1,l5)/ 

***** SYSTEM C 0 N P I G U R A T' 1 0 N •**•** 
***** ENGINE DATA ***** 

***** ACCUMULATOR DATA ***** 

***** HEAT EXCHANGER DATA ***** 

***** high PREs PUMP data ***** 
***** DUTY cycle data ***** 

***** heat source data ***** 

***** turbine DATA ***** 

***** MOTOR data ***** 

*** T A N K CONFIGURATION DATA **** 
***** LOW PRES PUMP DATA ***** 
***** TANK data ***** 

***** AUXILIARY POWER UNI T ***** 

'**•** FUEL CELL DATA ***** 

■•****• EC/LSS DATA ***** 


/ 


DATA ((LI(I,J)*I=1,21)*J=1,2)/' COMP COMP FUNC. NUMB. NU 

1 MB, MATRL. FLOW FRICTION LINE LENGTH LINE INSULATION 

2 INSULATION NO, LAYERS '♦' NAME CODE TYPE OPER, STBV, 

1 TYPE COEFICIENT OR L-OVER-D DIAMETER TYPE T 

MHICKNESS INSULATION '/ 


DATA ( (L2 |l,J)*l=l*1)*J=l*7j/' NUMBER OF ENGINES 

1 'GAS INLET-TEMP. ','GAS INLET PRES. 

2 'ENGINE THRUST », 'CHAMBER PRES. 

1 'EXPANSION RATIO '.'MIXTURE RATIO '/ 


DATA ((L3(l*j)*t s l*N)fJ=lfli / 'OPERATING TEMP. (DEG R) '. 

I 'Tank volume (cu. ft.) » , »nominal oper. delta pres*/ 


DATA ( (L4(I,J)*I=I,4),J=I*II)/ 'HEX HOT INLET TEMP. 


1 'HEX HOT OUTLET TEMP. 

2 'HEX COLD OUTLET TEMP, 

1 'HEX HOT OUTLET PRES. 

4 'HEX COLD OUTLET PRESi 

5 'HEX COLD SIDE DELTA-P 


' * 'HEX COLO INLET TEMP, «, 
','HEX HOT INLET PRES. ', 
','HEX COLD INLET PRES, •* 
','HEX HOT SIDE DELTA-P ', 
','HEX GAS GEN. O/F RATIO '/ 


DATA ((L5(I,J)*r=l*4),J=I,5)/ 'TYPE '* 

1 'EFFICIENCY '.'NET ♦ SUCTION HEAD ', 

2 'SHAFT SPEED 'ESTIMATED OELTA PRES. '/ 


DATA (<L6(I,J)*t=l*4),J=l,4j/ 'PUMP EFFICIENCY 


J 
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******** 
1 74 

rs 

176 

177 

178 

179 
ISO 

I 8 | 

1 02 
I 83 
I 84 
(8S 
186 
107 
188 

189 

190 
I 9 | 

192 

193 

1 94 

195 

196 

197 

198 

199 

200 
£01 
202 

203 

204 
20*5 
20 6 
.207 
208 
.209 
210 
211 
212 

213 

214 

2 I <5 
216 

217 

218 

219 

220 
221 
.222 
223 
.224 
228 
226 
.227' 
:228 
•229 

230 

231 


STOOTA •♦*«***** 


C 


c 


c 


c 


c 


c 


c 


I 'MET POS. SUCTION HEAD '♦ 

•2 'PUMP FLOW RATE '/ 

DATA <U7(I,J),l=l,4),J=|,23) 

1 ' i 

2 'INITIAL FLUID LOAD (OPTji 

3 'HEAT FLUX ( BTU/HR-FT**2 ) ' 

4 'initial pressure • 

8 'MATERIAL TYPE ' 

6 'INSULATION THICKNESS ' 

7 'PRESSURIZATION TYPE ' 

B 'PRESSURANT CAS TEMP. (R)' 

9 'PUMP DELTA PRESS. ( PS I A ) » 


T >P SUB C OF GAS GEN { PSI A • 

1 'GAS GEN MIXTURE RATIO ' 

2 'NUMBER INSULATION LAYERS' 

DATA ((L8(I,J),I=I,4),J=|,3)/ 

I ' ACTIVE INACTIVE '* 

DATA ((L9(I,J),i=|,4),J=I,8)/ 

1 'TURBINE INLET TEMP. ', 

2 'TURBINE MIXTURE RATIO ', 

DATA((LI0(I,J),t=|,4),J=|,S)/ 

1 'HEAT SOURCE MIX. RATIO '. 

2 'HEAT SOURCE AVAIL. ENERGY'* 

DATA ( (LI I ( I, J) *1=1 ,4) , Jr | ,20)/ 

1 'HORSEPOWER PER UNIT' 

2 'APU gas gen. inlet press', 

3 'HEX EXHAUST OISCHGE. TEMPI , 

4 ’02-SUP.OAS GEN, MIX-RATIO l , 

8 '02-SUP. GAS GEn.EXIT TEmP>* 

•6 '02-TANK RES I D , VAP , TEMP . ', 

•7 'FUEL MIX-RAT, SUP .'GAS-GEN', 

8 'FINAL 02 TANK PRESSURE ', 

9 'FINAL 02 TANK TEMP, . ' , 

T 'DELTA-P TANK CIRC, PUMP '/ 

DATA ( (L I 2 ( I , J) » 1=1 ,4) ,J=| ,28)/ 

1 'FUEL CELL MIXTURE RATIO ', 

2 'F.C.HEAT REJECTION RATE ', 

3 'FUEL CELL NOM, TEMP,- 02', 

4 'HOT FLUID INLET TEMP; 

8 '02 TANK FII.L DENSITY ', 

6 'EST, 02 TANK VENT QUANT.', 

7 'FUEL CELL OPER. PRESSURE', 

8 '02 TANK LO-PRES, SETTING', 

9 >02 TANK VaC.JAC, ANNULUS', 

T '02 TANK MAXIMUM DIAMETER', 

A 'FUEL CELL VOLTAGE (AVG) ', 

8 'FUEL CELL H2 PURGE RATE ', 

C 'FUEL CELL 112 PURGE TIME ', 

0 'H2 PURGE INTERVAL-AMPHRS'/ 

DATA( (L| 3(1, J), 1=1,4), J=|,28)/ 

1 'NUMBER OF MEN IN ICREW •» 


PUMP PRESSURE RISE ', 


/ 

, 'MAXIMUM DIAMETER (FT) 

-» (PERCENT ULLAGE VOLUME , 

, 'INITIAL TEMPERATURE (R) 

, 'VENTING PRESSURE 

, 'INSULATION TYPE 

, 'ACQUISITION TYPE 

, 'OPERATING PRESS, ( PSI A > 

, 'HEX DELTA PRESS. (PSIA) 

, 'HEX OUTLET TEMP. (R) 

, 'GAS GEN OUTLET TEMP (R) 

• 'NUMBER OPERATING (NOP) 

/ 

( ENG, DEG. DUE TO MIB ', 

TIME TIME '/ 

TURBINE EFFICIENCY ', 

TURBINE OUTLET TEMP. ', 
TURBINE GAS GEN. PSUBC '/ 

HEAT SOURCE TYPE ' , 

HEAT SOURCE OUTLET TEMP.', 

HEAT SOURCE PRESSURE '/ 

NUMBER OF APU UNITS ' , 
TURBINE MIXTURE RATIO ', 
TURBINE INLET TEMP. ', 
H2-5UP , GAS GEN, MIX-RATIO' , 
H2-SUP.GAS GEN.EXIT TEMP', 
H2-TAHK RESID.VAP.TEMP, ’*■ 

SYSTEM ENVIRONMENT TEMP.', 

FINAL H2 TANK PRESSURE >, 

FINAL H2 TANK TEMP, . 

TEM». EX, PROD. SUP. GAS-GEN', 


NUMBER OF FUEL CELLS OP^',- 
SP. REACTANT CONSUMPTION ', 
SP. WGT , OF FUEL CELL ', 
FUEL CELL NOM. TEHP , » H2 > , 
HOT FLUID OUTLET TEMP^ ', 
H2 TANK FILL DENSITY ', 
EST, M2 TANK VENT QUANT^i, 
NOM , FUEL CELL OPER.POWER' , 
H2 TANK LO-PRES, SETTING', 
H2 TANK VAC.JAC, ANNULUS', 
H2 TANK MAXImUm DIAMETER', 
FUEL CELL 02 PURGE RATE ', 
FUEL CELL 02 PURGE 'TIME ', 
02 PURGE INTERVAL-AMPHRS', 


MISSION DURATION - DAYS ', 
AIRLOCK REPRESSURIZINGS ', 
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2 'DAYS SUPPLY RESERVE GAS 1,»02 CONSUMED PER MaN-DAY 

3 'VEHICLE gas .LEAKAGE RATE' . 'DELIVERED 02 NOM. TEMP. '* 

M 'DELIVERED N2 NOM. TEMP. '.'02 FILL DENSITY *, 

5 'M2 FILL PEfiSTTY ','02 TANK FINAL TEMP 

6 <N2 TANK FINAL TEMP. ','02 TANK FINAL PRESSURE '» 

7 ,'N2 TANK FINAL PRESSURE **'LSS ENVIRONMENT TEMP. ', 

8 'CABIN OR AIRLOCK VOLUME ','02-HEX INLET LINE DIAM,.', 

9 ' N2-HEX INLET .LINE DIAM, *,'HEX HEATER ENERGY RATING* » 

T , r TNK HEATER ENERGY RATING* . 'DELIVERED 02 PRESSURE ', 

A 'DELIVERED N2 PRESSURE « » » 02 TANK HEATER DIAMETER ', 

B ,* 112 TANK HEATER DIAMETER '*'02 TANK HEATER LENGTH «, 

C ,'N2 TANK HEATER LENGTH '.'02 TANK LOW-PRESS, LIMIT*. 

D .'M2 TANK LOW-PRESS. LIMIT'/ 

C 

data ( (jfluid(I.J) * iei,2j f j;i,D/i oxygen <»• hydrogen », 

I * NITROGEN •/ 

DATA ( (KFLUIDt I , J) , I = I .£) , Js I ,2 1/ ' OXIDYZER FUEL */ 

C 

C ***** POP CONST ***** 

c 

DATA GRAVTY, PI. PI201 / 12.172 . 1. tRIS926*5 .2.09R1RSI7 
C 

c ***** POP CPAGE ***** 

C 

DATA MAXLIN, JNIJM .OPTLUN/SO. ' ATM10? » ,& 7 

DATA PTTTLE/' THE INTEGRATED MATH MODEL ►/ 

C 

C ***** POP CRUMP ***** 

■ C 

DATA (CLPP!(I.J).Ib|y11,J5|,6I / 

I TEMPERATURE '.'PRESSURE * . 'FLOW RATE «, 

2 'DELTA-PRESSURE *.'NPSH AVIALABLE DENS ITY OF FLUID r/ 

DATA LPP2 / 'NUMBER OF STAGES REQD, * / 

DATA t(LPP3<I.J).la|.3).j:l,6) / 

| 'COMPUTED NPSP REQD COMPUTED PUMP EFF, 'COMPUTED PUMP VOLi*. 
2'COMPUTED PUMP WGT.l. 'COMPUTED PUMP PWR, ', 'COMPUTED PUMP SPD. *7 
DATA LPPM 7 'SELECTED PUMP OPTION ' / 

DAT* LPPS / 'PUMP CHARACTERISTICS '/ 

C 

C ***** pop CTANK ***** 

C 

DATA <<LTzl(I.U),Isl.1),Jsl,m)/ 

1 'NUMBER OF TANKS ', 'MATERIAL TYPE '.' INSULATION "TYPE '» 

2 'FLUID HGT. (TOTAL )', 'FLUIO VOLUME /TANK >, 'DIAMETER (FT! /TANK' . 
1 'SURFACE AREA /TANK', 'TANK VOLUME / TANK', 'TANK WGT, (L0)TOT<, 
H 'INSUL. THICKNESS ','INSUL. WT (LB) TOT' HEAT LEAK BTU/H/FT' , 
*> 'GAS RESIDUALS WT. ','HGT ADDED CYL SECT'/ 

DATA (tLTZ2(l,J),I=l,2),Jsl f i> 

I 7 'SURF TENSjON' » 'POSjTV OiSPl' , 'DiEuCTROPHpR' 7 

DATA ( tLTZ3( I.U) • 1st » 3) » J: I ,M ) /'TYPE ACQ. DEVICE. «. 

I 'DEVICE WT. (LBS) f, 'TRAPPED BY DEVICE • , 'RES ID, PROPELLANT */ 
C 

c ***** pop CTUR8N ***** 

.C 

DATA LTBNI /'TURBINE ’CHARACTERISTICS »/ 

DATA ( (LTBN2 ( I ♦ J ) » Is 1 ,5 ) , Js | . 6 ) 7 

('TURBINE ROTOR MEAN DIAMETER '.'WGT. OF PWR. TRANSMISSION ASSY'. 
2'NGT. OF TURBINE ROTOR '.'WGT. OF MANIFOLD AND NOZZLE 
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******** 


290 
29| 
292 

291 

294 

295 

296 

297 

298 

299 
■ 100 
10 1 
■102 
101 
104 


1'WEIGHT OF INDUCER '.'WEIGHT OF TURBINE ASSY. 

C 

C ***** pep TABLOK ***** 

c 

DATA NTBID / I. 2, 7, 8, 4, 1. 6. 5.21. 9, 

1 10.l0.l7.il. 11. 16. 11.21.27.28. 

2 29,10.71.12,21,12.75.12.78.75. 

1 10. n. 16, 11,41 .41,12.72,41 , 18, 

4 19.20.21,44,45,46. 0. 0. 0, 0/ 

HIPE = 0, 

NIENTH ;s 0.0 
C 

RETURN 

C 

END 


*/ 
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******** PR0CEDURE DEFINITI0N PR0CESS0R - TABL0K 


t " TABLOK* PROC 
2 C 

1 1 REAL M I PE 

I u c 

>5 COMMON /TABLOK/ XTABt7>. NTB!D<S0) 

6 C 

7 END 


\ 


7 

to 

Ol 
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SUBR0UTINE TANK 


td 

I 

to 

05 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 
I I 
12 
n 

14 

1 5 

16 
IT 
13 

19 

20 
21 
22 
2V 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 
-45' 
.46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

•C 

c 

c 

c 

c 

c 

c 

c 

c 


* * * •* ■*-,'* *•■* :* * ***** * * .* * * ;* ;* •* :*• 

•* ROUTINE NAME - TANK POES. AND WT. DUTY * 

■* CYCLE HISTORY * 

■* ROUTINE .LANS - FORTRAN v UNtVAC 1108 EXEC 2* 

■* PROGRAMMER - R. VERNON* 6263 * 562* 2438S* 

* DATE COOED - 5/12/72 * 

• * * * *■■» ************** * * * * * 

SUBROUTINE TANK 

LOGICAL JP, DIAG, PAGE 

INCLUDE '.CACCUM 
INCLUDE CDCYCL 
INCLUDE CENG 
INCLUDE CHEX 
INCLUDE CIOUNT 
INCLUDE CMATRL 
INCLUDE XMOTOR 
INCLUDE CNAMES 
INCLUDE CTAliK 
INCLUDE TABLOK 

DIMENSION PRES( ICDLI *2* I J 
DIMENSION PWTOT (2 ) 

DIMENSION THED ( 2 ) 

DIMENSION WDOTX ( MHX * 2 j 

EQUIVALENCE (WDOTCF, WDOTX) 

DATA THED ( I j * THED ( 2 ) / 1 70. 0 *40 .0/ 

***** INITIALIZE THE PROGRAM COUNTERS 

■* 

■* IG - GAS TYPE FLAG 
•* IG = I FOR 02 

■* 2 FOR H2 

■* 

* IT s | (ONLY) REVISED 6-30-72 

:*• 

•* IP - COUNTER FOR THOSE VARIABLE STORED FOR EACH ELEMENT 

•* OF THE DUTY CYCLE, TANK PRES.* HE PRES 

.* 

■* IW - COUNTER FOR THOSE VARIABLE STORED FOR EACH COAST 

* OF THE DUTY CYCLE. VENTED GAS WEIGHT, 

■* 

+ IF - COUNTER FOR THOSE VARIABLE STORED FOR EACH BURN 

* OF THE DUTY CYCLE. HE FLOW RATE, PRESSUREANT GAS 

***** FLOW RATE, ENERGY FLOW, 

IF (DIAG(0*6HTANK )) WRITE (JOT, 6000) NDCYCL*N0P,SATVPE*S!TYPE, 

1 SMTYPE,SPTYPE,SMDIAM,SVLFLD*SULGPC.SHFLUX*STTEMP,SIPRES,SVPRES, 

2 SITHIK*SOPRES.SPGTEM,SHDELP,SPOELP*SHOTEM,SGGPC,SGOTEM,SGMRaT 


c 


IG a 0 
IT a I 

30 IG a IG * I 
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I 


'***** 

TANK 

******** 

t 

■58 


. IBURN = 0 

■59 


icoasT = o 

60 


.IF = 0 

61 


IP = 0 

62 


isw ■■= 0 

|6T 


IN = 0 

64 


HURT ( I G * IT)sO. 

6*5 


WHESIIM C ,0.0 

66 


GO TO (80 *80,70) * IG 

6T 

C 


68 

70 UP s 01 AG ( 1 .6HTANK 1 

69 


RETUPN 

ITO 

C 


7! 

C 

***** calculate the effective tank densitv rho. 

172 

c 


,71 

80 

T=TSAT(S!PRES(IG,IT),IGj 

74 


PWTOT(IG) = WPTOT(IG) 

71 


HP = WPTOT(IG) 

i 76 


CALL RHOLIO (T, IG t RHOL 1 ) 

'77 


VLIQSWP/RHOLI 

78 


PVoL=SV 0L( IGt IT7-VL1Q 

'79 

c 

CALC. RHO OF GAS 

80 


CALL GSONST ( I G. T, SIPRES ( IG, I) fRHOG j 

81 


hpv=rhog*pvol 

'82 


WPT=WP*WPV 

81 


RHO=WPT/SVQL<IG«IT) 

84 


RHOPsRHO 

81 


PHE=0. 

86 


PPVsSIPRESUG.IT) 

87' 


WHC=0. 

88 


WTOT = HPT 

89 

c 


90 


IF(0IAG(2,6HTAHK-0)) WRITE (6*6001) T,WP ,HP,RHOL| ,VLIO, 

9 1 


1 SVQL(IG,IT) » P VOL, RHOG*PPV, WTOT 

92 

c 


91 

c 

***** look up the initial energy LEVEL 

94 

c 


91 


KTAB SO 

,96 


IF (IG .EQ. | .AND. RHOP ,LT, 40.) KTAB s 2 

97 


.CALL FINTAB (NTBID(26)*IG+KTAB) 

1 98 


XTAB ( 1 ) - RHO 

99 


XTAB ( 2 ) = SjPRES ( iG, IT) 

too 


ENERGY a MIPE12.XTAB) 

|0| 

c 


ioa 


IF ( 0 I AG ( 2 .6HTAHK 1 ) j WRITE (6,6011) 1G, ITi IP, IW, IF, 

101 


1 RHOP, ENERGY, HP, WPV,WPT',SIPRES(IG, IT) 

104 

c 


101 


JP s PAGE(O) 

106 

c 


107' 


WRITE ( IOT ,7000) 

108 


WRITE (IOT, 7001) 

109 


WRITE (IOT, 7002) ( JFLUID( I , IG) , !s| ,2 ) , T, SIPRES(IG,IT), WP, WPV, 

HO 


1 WPT, WHE, WTOT, VLIO, PPV, PHE, PVOL, SVOL(IGilT) 

ill 


:2 ,RHOP, ENERGY 

lia 

c 


Hi 

c 

***** 00 energy balance for first coast for all four systems, 

114 

c 

***** and ALL COASTS FOR SYSTEM 1 (SELF PRESSURIZATION) , 

iis 

c 
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I******** 


16 


90 IP = IP 1 


17 


IF ( IP.LT .NDCYCL) 00 TO 110 


18 


IF(iP.EQ.NPCYCL) GO TO 1(3 


19 


100 ISPTYP a SPTYPEtlG* IT) 


20 


IP = 'IP - I 


21 


ICOfi'ST := 0 


22 


1 BURN = 0 


23 


00 TO 1010 


24 

C 



23 


110 ENERGY = ENERGY ♦ SHRATE/ IG, IT>*DCYCLE t IP* 1 I/WPT 

26 

C 



27 


ICOAST = ICOAST ♦ 1 


28 


IF(0IA0(2,6HTAflK-A)) WR ITE ( 6 » 6030) ICOAST. ISW 

29 

C 



10 


IF ( PAGE ( 33 j ) WRITE (IOT.70I7) 


31 

c 



32 


WRITE (IOT.603O) ICOAST, ISW 


33 


WRITE (IOT.7003) 


34 

c 



3*3 


00 TO 1 16 


36 

c 



37 


113 ENERGY = ENERGY ♦ SHRATE ( IG. IT) * 300.0/WPT 

38 


IF(DIAG(2,6HTANK-F) ) WRITE f6,603!) 


39 

c 


40 


IF ( PAGE (17)) WRITE (I0T.70I7) 


41 

c 



42 


WRITE HOT, 6031) 


43 


WRITE ( I OT » 70 1 3 ) 


44 

c 



43 


1 16 CONTINUE 


^6 

c 



47 

c 

***** LOOK UP RESULTING pres. 


48 

c 



49 


cvp=csubv(T,ppv.ig) 


30 

118 CVH=0.743 


31 


RATI0=(WPT*CVP)/'(WPT*CVP9WHE*CVH) 


32 


KTA6 a 0 


33 


IF (IG ,EQ. 1 .AND. RHOP , LT. 40.) XTAB a 2 

34 


CALL FINTAR ( NT3I0 (27 (TIG+KTAB ) 


33 


XTAB { | )=RHOP 


36 


XTAB(2)=ENERGY*RATjO 


37 


PPV=fiIPE( 2 1 XTAB ) 


38 


TSTSAT(PPV.IG) 


39 

c 

CALC. RHO OF GaS 


60 


CALL GSDflST ( IG.T.PPV, RHflG ) 


61 


IFlWHE.LE.O.) GO TO 1)9 


62 


CALL ZFINDCT.PHE, I7.ZHE) 


63 


PHE=FINdR< 1 7 ) *WHE*ZHE*T/ ( 1 44 ,*PVOL ) 


64 

l|9 pRESUP,IG,IT)=PPV*pHE 


63 


WPVrRHOG*PVOL 


66 


WRSWPT-WPV 


67 

C 



68 


IF(0iAG(2,6MTANK2 )) WRITE (6,6060) 

IG,IT»IP,IW,: 

69 


1 RHOP, ENERGY, CVP.CVH, RATIO, PPV.PHE 

,PRES(IP,IG,: 

70 


2 , WP , WPV, RtlOG 


71 

c 



72 


IF(DCYCLE(IP+I j.LT.0,0) DCYCLEtIPpI ) 

a 300,0 

73 

c 
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DATE ON 


174 

1 

ITS 


176 

C 

177 

c 

176 

c 

179 

c 

ISO 

c 

181 


<82 


181 


184 

120 

IBS 

I 

186 


187 


188 


189 

1 

190 

1 

191 


192 

1 

191 

i 

194 

c 

i9S 

c I 

196 

c 

197 

■c '1 

198 

c , 

1 99 


■200 


201 

128 

202 

, 

201 

c 

:204 

c 

•20S 

.c 

206 

x ; 

207’ 


208 

i 

209 

i 

210 

i 

21 1 

! 

212 

1 

211 

X '[ 

214 

. 1 

2IS 

1 

216 

•C i 

217 

1 

218 

, 

219 


:220 

c j 

221 

c 

222 

c 1 

221 

c 

224 

no 

22S 

i 

226 


227 

-C’ '1 

228 


229 

1 

.210 

c 

211 



WRITE U 07,7004) ( JFLUID [I * IG) , 1st *2) * T'» DCYCLEUP^t j » . WP» WPV* 
I WHE, PPV, PHE, PRESUP, I6UT), ENERGY 


***** IF ThtE RESULTING PRES. IS GREATER THAN THE VENTING 
■•* PRES,, COMPUTE THE HEIGHT OF THE VENTED MATERIAL AND 
***** SET PRES TO THE’ VENTING PRES, 


IW a iw ♦ I 

SVWT UW, 16* IT) s 0,0 

IF (PRES ( IP* I6» IT) - SVPRESUG,IT))H0,I10,»20 
PVsSVPRES (IG, IT) 

PlsPRESUP* IG, IT) 

VaSVOLI IG* IT) 

’CALL VENT (0., WHE, WPV, WP,T,PV*P1*V,I6*PPV, RHOP) 
SVWT ( IW, IG, IT )=HPT-WP-WPV 
PWTOT(IG) a HP 1 
WPTsWPfWPV 
WTOT = HPT ♦ WHE 
PHE=PV-PPV 

PRESUP, IG*IT) a SVpRES I IG, IT) 


***** CALCULATE A NEW TANK DENSITY 

RHOP=WPT/SVOL(IG,IT) 

CVpsCSUBV (T,PPV« IG j 
CVHS0.74S 

RATI 0= ( WPT*CVP j / ( WPT*CVPtWHE«C VH ) 


••*****• LOOK UP NEW ENERGY LEVEL 
KTAB :'a 0 

IF (IG ,EQ. I , AND. RHOP . LT, MO.) KTAB s 2 
CALL FINTAB <NTBID(28)*IG+KTAB) 

XTAB ( ) >=RHOP 
XTAB ( 2 )sPPV 

ENERGY=MIPEI2. XTAB) /RATIO 

IF(0IAG(2,6HTANk1 )) WRITE (6,601S) IG,IT*IP»IW,IF, 

I SVWT ( IV, IG, IT) , WTOT, PPV,WP, PHE, PRES ( IP, IG, IT) , RHOP, RATIO, ENERGY 

WRITE U0T,700S) 

WRITE <IOT,7006) SVPRES (16, IT), SVWT(IW, IG, IT) , WP, WPV, WHE, 

I WTOT,. PPV, PHE, PRESUP, IG, IT), ENERGY 

***** UPDATE THE DUTY CYCLE COUNTER AND DO THE DIFFERENT 
***** SYSTEMS. 

IP » IP* I 

IFUP.GT.NDCYCU GO TO 100 
ISW = SPTYPEUG.IT) 

I BURN a I BURN I 

IF |D1A6(2,6HTANK-B) ) WRITE(6*6020) IBURN,ISW 
WRITE ( I0T ,6020 ) IBURN, ISw 
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212 

211 

!21H 

' 21*5 

216 

217 

218 
219 

240 

241 

242 
241 
244 
;249 
•246 

247 

248 

249 
:2S0 
2S| 
292 
241 
2*54 
299 
2*56 
2ST 
258 
299 
260 
261 
262 
261 
264 
269 
266 

267 

268 
269 
:270 
■271 
272 
277 
.274 
279 

276 

277 

278 

279 

280 
281 
282 
287 
284 
289 
286 

287 

288 
.289 


WRITE HOT ,70071 

C 

GO TO (1000* 1000,1000) *ISW 

c 

C ***** 00 ENERGY BALANCE FOR ALL BURNS 

C 

1000 CALL FINTAB (NT8ID(29>*IG) 

H = MlPE(ltPPV) 

WDOTJH = -WOOTJ(TBURN.IG) * PWTOTt 13 j/WTT0T( IG) 
E=ENERGY*WTOT-H*WOOTJH*DCYCLE ( IP. I) 

c 

IF(0IAG(2,6HTAMK4A)) WRITE(6*6040) IG, IT* IP* IW, IP, 

1 H,WDOTJ( I BURN* IG)»PWTOT(IG)»WTTOT(IG) » WDOT JM* ENERGY »WTOT'» 

2 OCYCLE { I P — I ) * E 
C 

WRITE ( I0T *7008 ) ( JFLulOj I . IG ) , 1 = 1 ,2) , DCYCLEt IP-1 j , 

1 WDOTJ(lBURN,IG), WTTOT(IG), PWTOT(IG), ENERGY, E, 

2 WOOTJM 

:c 

hout=hdotjm*dcycle( iP-n 

WT0T=W70T-W0UT 

HPT=WPT-WOUT 

ENERGY=E/WTOT 

c 

WTTOT(IG) :a hTTOTUGI - wDOTJl IBURN, IG ) * DCYCLEt IP»t ) 

c 

PWTOT(IG) C WPT 

c . 

C ***** CALCULATE NEW TANK DENSITY 

C 

RHOPswPT/SVOLtIG, IT) 

C 

IF(0IAG(2,6HTANK4Bj j «RITE(6*6090) IG* IT* IP* Iw* IF* 

I WOUT,WTOT,WPT,ENERGY,WTTOT(IG),PWTOT(!G>,E,SVOL(IG*IT1*RHOP 
C 

c ***** loon up the resulting pressure 

c 

KTAB ;s 0 

IF (IG .EG. r.ANO, RHOP ,LT. 40, ) KTAB * 2 
CALL FINTAB (NTBID(70)*IG*KTAB J 
XTA8 ( | ) sRHOP 

RATIOS (WPTPCVP ) /(WPT*CVP*WHE*CVH) 

XTAB(2)5ENERGY*RATI0 
PPVsMIPE C 2 » XT A B > 

IF(ISW.EG.I) PRES(IP,IGvtT>=PPV 
C 

IF tOIAG(2*6HTAHK4C) ) WRITE(6»606t) If, IT, IP, Iw, IF, 

1 RHOP, ENERGY, RATIO, PPV, PRES ( TP, IG , IT j 
C 

WRITE ( IOT ,7009 I 

WRITE (IOT, 7010) WOUT, WTOT, WPT, WTTOT(IG), RHOP, P>V» ENERGY 
C 

GO TO (2000,2000*1000) « ISW 

C , 

C ***** DO THE FINAL CALCULATIONS FOR SYSTEM I AND PART SYSTEMS 2*1 

C 

c ***** SUM UP THE VENTED GAS WEIGHT 

C 
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290 

1010 

WVSUM =0.0 

S'? 1 


00 1020 ! 1 c t,IW 

:292 


WVSUM = WVSUM ♦ SVWT 1 I 1 » IG, IT) 

293 

1020 

CONTINUE 

,.294 

C 


, 295 


SWVTOT ( IG, IT) = WVSUM 

296 

C 


.297 

C 

***** CALCULATE THE PROPELLANT PARENT CAS RESIDUAL. 

.298 

.c 


:299 


TFINAL = tsatippv.igi 

:300 

:c 

CALC. RHO OF GAS 

■JO | 


CALL GSZDNS (IG, TFINAL, PPV,RHOIG,ZIG> 

•102 


WGR(IGtl) ■= RHOrG*PVOL ♦ WHE 

103 


WLRT ( IG, 1 j := HP 

1 304 

c 


305 


IF ( 01 AG( 2f6HTANK5 )) WR ITE ( 6 1 6070 1 IS . IT, IP, Iw* IF,WVSUM,TFINAL,Z» 

306 


1 SWVTOT { IG, IT), WGR1IG, IT j|WLRT(IG.IT1 

"•307 

c 


-308 


WRITE HOT, 70141 TFINAL, SWVT0T( IG, IT) , WGR(IG,IT), WLRT(I6,IT) 

,'309 

c 


310 


GO TO (30, 2010, 7010), ISPTVP 

31 1 

c 


f1l2 

c 

***** CALCULATE PRESSURAHT NEEDED FOR THIS BURN 

313 

c 


,314 

2000 

TcTSAT(PPV,IG) 

;3I5 

c 

CALC. RHO OF GAS 

'316 


CALL GSZDNS ( IG. T, PP V, RHOG. Z ) 

j 3 1 7 


CALL RHOLIQ(T,TG,RHOL| ) 

318 


PVOL=SVOL(IG,IT)*(RHOLI-RHOP)/(RHOLI-RHOG) 

• 319 


VlIQ=SVOL(IG,IT)-PVOL 

• 320 


WPcVLin*RH0L1 

321 


WPV=RH0G*PVgL 

322 


. IF ( ISW.EQ, | ) GO TO 90 

323 


THE x THED(IG) 

324 


1F= IF* 1 

325 


IF (PUE.LE.O, ) GO TO 2004 

326 


CALL ZFINOfT, PHE, I TV Z I j 

.327 


RHEsWIIF./PVQL 

328 


PHE=RHE*ZI*FINDR( l7r«T/l44, 

329 

2004 

PTOT=PPV*PHE 

,330 


IF(PTOT.LT. SOPRES(IG,IT)i GO TO 2005 

331 


WDOTHE(IF,IG,IT)=0. 

332 


WHEAOO = 0.0 

333 


PRES ( IP , IG, IT)=PTOT 

■374 


GO TO 2006 

375 

2005 

pHE=S0PRES(IG,IT)-ppV 

376 

c 

CALC. RHO OF GAS 

>337 


CALL GSZDNS ( I7.THE,PHE,RH0GT,Z) 

378 


WH = RHOGT*PVOL 

319 


WOOTHE! IF, IG,m=(WH«WHE)/(0CYCLE1 IP-!)) 

340 


PRESJIP.IG, IT )=SOPRES( 16, IT ) 

341 


WHEADD = WH - WHE 

342 


WHE=WH 

393 

2006 

PRESHE(IP,IG,IT)=PHE 

144 


WHESUM B WHESUM •♦ WHEADD 

345 

C 

- 

• 346 


IF ( DIAG(2»6HTANK6 )j «RITC (6,6080) IG, IT, IP, ly, IF, 

347 


1 T, X,RHOG»RHOLt ,PVOL, VLIQfWP.WPV, 
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W 

i 

C\3 

oo 

to 


348 


2 

SOPRES(IG,IT),PPV.THE,ZI , WH, WHE, 

349 


3 

DCYCLE ( IP- 1 )»WD0THE(IF,I6,IT), 

330 


4 

PRES(IPfI6,IT),PRESHE{IP,IG,rT) 

331 

C 



332 


WRITE 

(IOT ,70 II) 

333 


WRITE 

( IOT ,70 12) T, THE, PVOL, VLIO, VP, WPV, PRESHE(IP» 

334 


1 

PTOT, SOPRES(IG.IT), WDOTHE ( IF, IG, IT) , WHEAOD 

333 


2 

PRES ( IP, I G , IT) , WHESUM 

336 

C 



337 


GO TO 

o 

«r 

338 

C 



339 

C 

***** DO FINAL CALCULATIONS FOR SYSTEM 2, 

360 

C 



361 

C 

***** CALCULATE PRESSURIZATION SYSTEM WEIGHT., 

362 

C 



363 

2010 SUMWDH 

1 = 0.0 


364 

363 

366 

36T 

'368 

■369 

370 

37| 

372 

373 

374 
373 

376 

377 

378 

379 

380 

381 

382 

383 

384 
383 

386 

387 

388 

389 

390 
39 | 

392 

393 

394 
393 

396 

397 

398 

399 

400 

401 

402 

403 
’404 
■403 


DO 2020 II :s If IF 

SUMWPH = SUIIWDH +WD0THE ( J I » I G» IT I*OCYCLE (2*11-1) 

2020 CONTINUE 

WHETOTI IGf IT) a WHESUM 

*, 

WPGTOTI IGf IT) = l.3*WHET0TU6fITJ ♦ 40.0 

IF<DIAG(2,6HTANK8 n WRITE (6,61 00 ) IG, IT, IP, IW, IF,SUMWDH, . 

1 WHETOT ( IGf IT) , 

2 WPGTOT(IGf IT). WPTOTUG), PWTOT(IG) 

c 

WRITE ( IOT ,70 1 3 ) . . 

WRITE (IOT, 7016) WHETOT( IG, IT) , WPGTOT( IG, IT) 

GO TO 30 

***** SYSTEM 3'.***** 

***** CALCULATE PRESSURANT GAS FLOW RATE. 

T = TSAT(SOPRES(IG, IT).IG) 

IF 5 IF + I 

CALC. RHO OF' GAS 

CALL GSZDNS ( IG.T»SOPRES( IG, I ) ,RHOG,Z ) 

CALL RHOLIQ (T , IG, RWOL I ) 

PVOLaSVOL < IG , IT ) * { R hOL 1 -RHOP ) / ( RHOL I -RHOG ) 
PRES(IP,lG«IT)=SOPRES(IG,IT) 

PPV=PRES(IP,IG,IT) 

WPVG=PVOL*RHOG 

WOOTPG(IF,IG, IT > = (WPVG-WPV) / (OCYCLE ( IP- 1 ) > 

WPV=WPVG 

IF(0IAG(2,6HTA))K9 )) WRITE (6,6012) IG. IT, IP, IW, IF, 

1 'T.Z,RH0GfRH0LI,PV0L,PRES(IP.I6,ITi.PPV, 

2 KPVG,WOOTPGnF,IG,IT),DCYCLE( IP-1 ),WPV 

GO TO 90 

***** 0 o FINAL CALCULATIONS FOR SYSTEM 3, 

***** FIND MAXIMUM FLOWRATE OF THE PROPELLANT GAS. 

■* LOOK UP THE HEX WEIGHT PER FLOWRATE FOR THE HEX DELTA P. 


C 

C 

c 

c 

c 

c 

3000 
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I 

I 


■406 
)**0T 
1*408 
1*409 
1*4 1 0 
)*4 I I 
•;*4i2 
*4 IV 
! 4I4 

*4 IS 
416 
'*4 IT- 
418 
'*419 


1420 

'421 

1422 

1*421 


1424 

,42S 

426 

1*427 

•.428 

429 


430 
411 
432 

431 
'414 


{4 IS 

416 

417 

418 

419 

440 

441 

442 
441 
444 
,445 
446 
447' 

448 

449 
440 

451 

452 
451 
■454 
455 
■456 

457 

458 

459 


460 

461 

462 
461 


TANK ******** 

C ***** CALCULATE THE WEIGHT OP THE HEX. 

C I 

c 

C DELETE NON-EXISTANT TABLES 
C 

3010 CONTINUE 
C 

WDPGMX := WDOTPG(l,IG» IT) 

DO 1020 II :=.2,IF 

WDPGMX e AMAXI(WDPGMX,WDOTPG<II j 
1020 CONTINUE 
C 

JX = JX ♦ I 

c 

WOOTx ( JX,' IG j = WDPGMX 
UCOOE(dXtlG) = HXCODE ( JX. 1 G j 

c 

CALL HEATEX ( IG ,JX,WD0TXtJX.t6 ) ,HEXHIT( Jx,IG i *HEXCIT( Jx* IS j 

1 * HEXHOT ( dXt I G ) ,HEXCOT'( JX.IG ) .HEXHIP ( JX, IG ) ,HEXC1P( JX* 10 ), 

2 HEXHOP ( JX, IG ),HEXCOP(JX.IG ),HXMRATf JX, IG ),WDOTH {JX,IG ), 

1 WHXTOTIJX.IG I) 

C' ! 

WTHXPG(IG) ;s WHXTOT ( JX , I G j 
C 

C , ***** COMPUTE THE WEIGHT OF GAS GENERATOR PROPELLANT REQUIRED 

C 

CALL FINTAB (MTBIDdl )*IG) 

.XTAB ( 2 ) = SPGTEMf IG, IT) 

XTAB(l) a SHOTEMUG,IT) 

WT e 0.0 

DO 1010 II :e I, IF 

XTA8(|) = PRES( 2*1 l-l , IGV IT) SPOELP( IG, IT) 

XTAB ( 4 ) -.8 WDOTPG ( 11,10, IT1 

WT = WT ♦ MIPE(4,XTaB)*0CYCLE(2*II*I) 

1010 CONTINUE 

c 

WGGPPGdG.IT) a WT 
C 

c ***** LOOK up gas generator system weight. 

c 

ATERM a 11.824204 - (0.01 I t7821*S0GPC( 16, IT j ) ♦ ( I.8612927E-5 ■* 
I ( SGGPC ( IG, IT >**2 j ) - (I.I08421E-8 * (SGGPCt I6»IT j**1)j 

BTERM = 7,9470262 — < ,015616IR8*SSGPC< !G*IT j» ♦ (6.46S4644E-5 * 
I (SGGPC ( IG»IT )**2)) - (1.7946E-8 * <SGGPC< IGlIT j**ljj 
C 

WGGAPGI lG,ITi = ATERM ♦ BTERM • WDPGMX 
C 

C ***** CALCULATE MOTOR H0URE POWER REQUIRED. 

C ****** NOTE - OVERALL MOTOR PUMP EFFECIENCY FIXED AT' 0.5. 

C 

CALL RHOLIQ(SITEMP( IG,IT),IG,R) 

HPHXPG a |44.O*SP0ELP ( IG, IT j *WDPGMX/ (550,0*0,5*R j 
C 

C ***** LOOK UP MOTOR WEIGHT. MOTOR SPEED s CONSTANT a 10000^0 

C 

CALL FINTAB (NTBIOmn 
XTAB ( I ) := HPMXPG 
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464 

465 
>466 

467 

468 

469 

470 

471 

472 
471 
474 
4T8 
476 
47T 

478 

479 

480 

481 

482 
481 
484 
488 

486 

487 

488 

489 
•490 
•491 
492 
491 
494 
498 

496 

497 

498 

499 
800 
SOI 
802 
801 
804 
808 
806 

807 

808 

809 

810 
811 
812 
811 
814 
818 


818 

819 

820 
821 


XTAB ( 2 ) ■= 10000.0 

WMpG ( IGi IT ) s M!PE(2.XTAB> 

C 

C ***** CALCULATE BATTERY WEIGHT, 

C 

WB = 0.0 

CNST := |44.0*SPDELP(IC,IT)*746. 0/(580. 0*0. 5*R*1600,0) 

C 

00 1040 II = I, IF 

WB a WB •♦ CNST*WD0TP6(!|, lG,IT)*0CYCLE(2*IUn 
C 

;1040 CONTINUE 
C 

WBPG(IGftT) = WB /PONSTY 

C 

C ***** LOOK up pump weight. 

c ***** NOTE - DELTA PRES, NPSH * 0, AND EFFICIENCY a ,T 

c 

CALL FINTAB ( NTBID ( 14 > + lG ) 

XTAB ( | ) :s .7 

XTAB ( 2 ) a 0.0 

XTAB(I) e SPDELP ( IG» IT) 

XTAB ( 4 ) = WDpGHX 

WCPPG { IG, IT ) a MIPE (4.XTAB j 

C 

c ***** DETERMINE the pressurization system weight. 

c 

WTSyPG(IG.IT) :e WTHxPG(IG) ♦ WGGAPG! IG. IT) ♦ WMPG(IG.IT) ■♦ 

I WBPG(IG.IT) ♦ WCPPG { IGt IT ) 

C 

C ***** SEPARATE THE GAS GENERATOR PROPELLANT WEIGHT INTO 

c ***** H2 and 02 COMPONENTS 

C 

WTGGHZt IG, IT) a WGGPPG ( I G , IT) / ( SGMR AT ( I G , IT) - 1.0) 

WT GG02 ( IG » IT ) a WGGPPG ( IGi IT ) - WTGGH2 ( IG. IT) 

C 

IF(OIAG( 2 , 6 HTANK| 2 ) ) WRITE (6.6018) IG. IT. IP, Iw. IF, 

1 WDPGMX.WTHXPG(IG),WT, WGGPPG (IG, IT ),WGGAPG(IG.IT).R»HPMXPG» 

2 WMPG(IG,IT),CHST.WB.WBPG(IG,IT) f WCPPG(IG,IT),SPDELP(IG,IT)» 

1 WTSYPG(IG,IT),WTGGH2(IG,IT),SGMRAT(IG,IT),WTGG02(IG,IT) 

c 

GO TO 10 

c 

6000 FORMAT ('♦'14X1118 / (ISX4EIS.8)) 

C 

6008 FORMAT ( '♦• » I4X.T21, '*TEMP-' »T17, '-WAPS-' ,T82, '-WP-' ,T67. '-RHOLt*' * 
I T82, '-vLIQ»',t97» 'tANK-vOL'/|8X»6E|8.8/t 21. 'uLL-vOL',fl7»'-RHOG-' 
2.T82, l-PPV-'»T6Tr '-WTOTi ' / 1 8X.4E 1 8.8 ) 

C 

6010 FORMAT ( '■♦ • , 1 4X,5l8/( 1 8X.7E 1 8 ,8 ) ) 

C 

6012 FORMAT ( • ♦ ' , 1 4x, 'TGs ' » 1 1»2X« ' ITa ' , II 1 2x» MPa ' » IT.2X* ' Iwa ' » lit 2x* 

1 ' IFa ', 11/ I8X.T2 I . 'TEMP-GAS '.TIT. 'Z-GAS',T82»'RHOG'fT6T.'RH0LlQ', 

2 T8 I, 'ULL-V0L'»T97» 'PRESSURE ',T I 12, '-PPV-'/ItjX.TE 18.8/ I8X.T21, 

1 'WPVG'.TIT, 'WDOTPGI.T82, ' DCYClE ' »T67» • -WPV- ' / I 8X.4E 18. 8 ) 

C 

6018 F0RMAT(i + i,|4x» , IGai,n,2X»'ITai,n,2x.'IPa'»n.2X»'!ws'*I1»2X* 

I ' IFa ' , 11/ | 8X.T21. ' WDPGMX ' , T17, 'WTHXPG ' »T82, ' - WT -«,T67» l WGGPPG ' . 
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2 T82,'WGGAPG'»T97»'- R -» »T|1 2, ' HPMXPO' / ISXVTE IS. 8/ iSX»T21, »WMPG» . 
1 TIT » < CNST ' »TS2. W8 •* ,T67» ' WBPG 1 ,'T82, ' WCPP6 ' ,T97 » ' SPDELP '/ ISX* 

4 6EIS.8/ISX,T21, ' WTSYPG ' ,T17» 'WTGGH2 ' , T<52« 'SGMRAT* ,T67* 'WTSG02' , 

5 /lSX,4EIS.8) 

C 1 

6020 FORMAT(/20X«20( ’■*•)** BURN NUMBER a*, I4.SX, 'PRESS. SYS. NO. s', 14, 

i ix«2oc*>r/) 

c 

6010 FORMAT(/20X, 20 (*•*'),' COAST HUMBER s' , i4,SX» 'PRESS. SYS. NO. s',14* 

! I Xt 20! '*')/) 

C 

6011 FORMAT(/I8X,20( FINAL ENGINE SHUTDOWN PROPELLANT TANK CONDI 
ITIONS ',20('*«)/J 

C 

6011 FORMAT! '♦',|NX,'lGs»»I1»2X*' Its' #I1,PX,' IPs' ,11, 2x»'!Ws'j!1,2X» 

1 1 IFs' , I1/ISX,T21, 'RH0P',T3M*' INT, ENERGY' ,TS4* 'VIP ' ,T69* «WPV' ,T84, 

2 'HPT' *T96» 'PRESSURE'/ ISX»6EtS. 8) 

601S FORMAT ( ' ♦ ' i |4X*'lG='»l1.2X, 'ITs'.t 1,2X,« IPs', J1.2X, 'IMS', il»2X* 

1 ',IFs',l1/ISX,T21»'SVKT',T17. ' WTOT • ,TS2, ' PPV' ,T68, ' WP ' »T81, ' PHE* » 

2 T9 A, ' PRESSURE' /|SX»6EIS.8/|SX*T21, 'RHOPUTIT* ' RATIO' »TS| , 

1 , 1 INT.CNERGY' /!BX»lEl5.8 ) 

6090 FORMAT! IMXf'lGs* »I1.2X. ' ITS', |1,2X.' JP= ' , J 1,2X » • IW= • , j1,2X» 

1 'IFs', II, 7tSX»T2l» 'ENTHALPY', T16, ' WDOTJ ' »TS I * ' PWTOT ' » 

2 T66, iHTTOT l ,T8 I , * WOOTJMj , T94, » INT .ENERGY' ,T I 1 1 » ' WTOT ' / tSX,7EtSiB. 
1 / ISX.T22, 'OCYCLE *»T18»'«E«»/ISX»2EIS.8) 

60S0 FORMAT ( M ' * |4X» ' lG= ' , 1 1 ,2X • ' ITS * , 1 1, 2X . • IPs • , 1 1.2X , ' IWs « , 1 1,2X* 

1 ';IFs ' , 11/ IBX,T21, » WOUT ', T17» * WTOT '» TS1, ' WPT' «T66» ' INT .ENERGY' » 

2 T82, 'MTTOT ' *T9T , 'PWTOT'.TI 12, *-E- >/!SX,7E I S.8/|SX,T21, 'SVOL ' , 

1 T,1T. *RHOP'/ISX.2EIS.8) 

6060 F0RMAT('+»,|MX,'IGsi,l3,2x*'lTs',I1,2X»'IPsi,I1,2X,'IWS',I1,2X, 

1 ' IFs',n/IBX,'T21, »RHOP' , TIM,' INT, ENERGY' *TS4» 'CVP' *T69* 'CVH' ,T82, 

2 ' RATIO ',T99» 'PPV '/ISX,6E I S.8/T2M,'PHE'.T16, 'PRESSURE ',TSH,'WP', 

1 T69, tWpv>,T82, 'RHOG'/ISX,SE! r ,.8) 

6061 FORMAT! '♦ 't|4X,'IGs', II, 2X*«ITs'»t9*2X.' IPs', 11»2X,'lWs«' lit 2X» 

1 'IFs',I1,/|SX,T21, ' RHOP ', TIM, • INT. ENERGY ','T5 I, ' RATIO ',T70, 'PPV, 

2 T80, 'PHESSUPE* / ISX,SE IS.8 ) 

6070 FORMAT(U'»l t tX,HG=',l1,2X.'lT=t,l1,2X.'IPs',n,2X,'IW=',l7.2X, 

1 'IFs',I1,/|SX,T2l,'WVSUM',T16.'TFINAL',T51,'-i-',T66,'SHVT0T'* 

2 T81, 'WGR',T97, ' WLRT ' / I SX , 6E IS . 8 ) 

6080 FORMAT! |4X, MG = ',I1,2X. MT= ',11, 2X, 'IPs', I1,2X,ilWs', II, 2X, 

1 'IF=',n,VrSX,T22,»TSAT»,T17,iI.GAS',TSI,'RH0-GA5«,T66,'RH0-Ll8'» 

2 TBI,'ULL-VOL',T9S,'LI0-VOl.',TI I 2, ' -WP- ' / ISX.TE I S.8/T21. ' -WPV-' . 

1 TIM, ' OP. PRESSURE »,TS2,» PPV >,T67, 'HE-TEMP ' ,T8 1 « ' Z-HELIUM' ,T97» 

4 I-WH-' ,Tt!2,«-viHE-»/lSX,TE|S.8/T21i ' DCYCLE ' , T17, • WDOThE ' , TS2, 

5 'PRESSURE 1 ,T6S, ' ME-PRESSURE '/ISx»4EIS,81 

6090 FORMAT( ' ♦ » , 1 4X, • IGsi » 1 1»2X* • ITa' , I4,2X» » IPe» * I1.2X, » IWs* • II, 2X. 

1 'IFS',I 1 ,/| S X,T22, 'SVWT',Ti8,'- KP -' ,T«n* 'RH0« ,T64» ' INT. ENERGY*/ 

2 ISX.SEIS.8) 

6100 FORMAT! |4x» »I6c«'n,2X''IT=», II, 2 X *» IPs' <I1»2x,'IHs',n,2x» 

1 »IFs,,n/rsX,T22,'SUKWDHi , T18, ' WHETOTi ,TS I , l WPGTOT' ,T6T, 'WPTOTt , 

2 TB1»'PWT0T'/ISX,SEIS.8) 

C' 

7000 FORMAT ( /T42 , '*** TANK AND VENT PARAMETER CALCULATIONS ***'/) 

7001 FORMAT(T20*'*** INITIAL TANK CONDITIONS *»*'/) 

7002 FORMATfTS, 'FLUID CONSIDERED - ' , jA A, 141, 'FLUID TEMPERATURE a » 
I »F8 ,2»T8I » 'TANK INITIAL PRESSURE s ' ,F8.2/TS, 'WGT.OF LIQ. PROPi 

2 a ',F8.2,T41,«WGT. PROPi VAPOR = ',F8.1» 

1 T8 I , ' NGT . LIQ. ♦ VAPOR 
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580 

581 

582 
581 

584 

585 

586 

587 

588 

589 

590 
59 | 
592 
597 
594 
59s 

596 

597 
590 
599 
■600 
601 
602' 
601 

604 

605 

606 
• 607 
■608 

609 

610 
61 I 
6 1 2 
611 

614 

615 

616 

617 

618 

619 

620 
621 
622 
621 

624 

625 

626 

627 

628 
629 
610 
611 


TANK 


4 e '♦F8.2/T5* 'WGT. HELIUM IN vAP 00 = • *F8.2*T41t 'TOTAL FLUIDS IN 

STANK = I ,F8.2*T8I f'VOL. OF LIQUID FLUID = ' .F8.2/T5* 'PART. PRES . P 
6P.0P, VAPOR ='*F8.1, 141, 'PART. PRES, HELIUM gas = ' *F8, 1,781 , 'ULLAGE 
7 VOLUME IN TANK = ' ,F8 ,2/TS , 'TANK VOLUME = ' * F8 .2 ,T41 , ' E 

8FF, TANK DENSITY ■=■ ' » F8 . 1» T8 I , ' EFF. INTERNAL ENERGY = 'tEIS.8 
9) 

•7001 FORMAT fT20f ' *** PRE- OR NON-VENT CONDITIONS ***'/) 

■7004 Format(t5, 'fluid considered - • ,2A6,t41* 'fluid temperature s » 
t »F8.2fT8t , 'COAST DURATION - SEC. = < *F8 . 0/T5 * ' WGT.OF LIQ. PROP. 

2 = ' »F8.1iT41» 'WGT, PROP. VAPOR s ' *F8,1*T8I * 'WGT, HELIUM IN 

IVaPOR = ' tF8.1/T5 * 'PaRT.PRES, PROP. VAPOR = ' .F8.1,T41, 'PART. PRES. 
4HELIUM GAS = ' .F8.1.T8I , 'CURRENT tank PRESSURE n i,F8.1/T5.'EFF.I 

sntehnal .energy = i , E 1 5 , 8 ) 

7005 FORMATI/T20, '**» POST VENT CONDITIONS *«*•/) 

■7006 F0RM A T(T5, 'Tank vent PRESSURE = ' *F#.2»T4V >wgt, VENTED FLUIDS 
I = '.F8.2,t8|.'WGt.0F LIQ.IN TANK S' *F8,2/TS» 'HOT. VAPOR IN TA 
2NK = I ,F8.1*T41, 'WGT. HELIUM IN VAPOR = ' , F 8 . 7 T8 I , • TOTAL FLUI 

IDS IN TANK = « .F8.2/T5. 'PART. PRES. PROP. VAPOR = ' ,F8 . 1 , T41 , > PART . 
4PRES.||ElIUII GAS = 1 *F8.1,T8I * 'VENTED TANK PRESSURE = **F8.7/TS* 

5 'EFF. INTERNAL ENERGY s '.EtS.8) 

'7007 FORMAT ( T20 * '*** COMPUTE ENERGY RALANCE FOR BURN ***'/) 

7 00 8 FOP.MaTCTS, 'FLUID CONSIDERED - * ,2A6,T47, ' BURN DURATION - SEC. * ' 

I .F8.0.T8I , 'FLOWRATE For THPUST S ' .F8.1/TS, 'THRUST prop. REMAJnIn 
25 = 1 , F8.2iT 41» 'PROPELLANT IN TANK s 1 , F8 . 2 * T8 I , ' EFF . INTERNAL 
7F.NERGY = ' 1 E I S . 8/Ts » ' EFF , TANK ENERGY = ',E|5.B, 

4 T8 I, 'TOTaL FLOWRaTj; = '.F8.7) 

7009 F0RMAT(/T20. '»** COtiPuTE RESULTING TANK CONDITIONS ***'/) 

•7010 FORMAT(TSf 'PROPELLANT WITHDRAWN s ' . F8 . 7 . T47 . ' TOTAL FLUIDS IN TAN 
I K = ' *F8,2»T8| * 'PROPELLANT LIQ.+VAP, = ', F8 . 2/TS, ' THRUST PROP. RE 
2IUINING s « ,F8.2 f T47 , 'New EFF. TaNK DENSITY s ' »F8 .4 .78 I * ' PaRT . PRE 
IS. PROP. VAPOR = ' » F8 . 3/T5* ' NEW INTERNAL ENERGY = ' » E I S . 8 ) 

•7011 FORMAT ( /T20, '*** COMPUTE PRESSURANT NEEDED FOR THIS BURN ***'/) 
7012 FORMAT ITR , 'TANK LIO. TEMPERATURE s 1 ,FB . 2 *T41, ’ STORED HELIUM TEMP. 

1 = ' *F8.2,T8 | . 'NEW TANK ULLAGE VOL. = • *F8. 1/75, 'NEW PROP. LjQ. 

2 VOLUME :C ' ,F8.2*T47, 'PROP, LIQ. REMAINING s ' . F8 . 2 ,T8 I * ' WGT. OF 

7PR0P. VAPOR = ' »F8.4/TS, 'HELIUM PART. PRESSURE s ' ,F8 . 1, T41* 'TOT 
4 aL PRES. *PPV+PHF* = ' »F8.1*T8I .'NOM. OPERATING PRES. = '.F8.1/T5 
5, 'HELIUM FLOW PATE = ' , E I 0 .4 , T4 1 , • WE T GHt OF HELIUM USED = ' . 

6 EI0.4*T8| , 'NEW TANK PRESSURE = ' *F8 . 1/T5, ' TOTAL HELIUM COHSUM 
7E0 = ' ?F8,7) 

■7017 format(T2o» '*** compute Final tank condiTjons ***i/j 

70(4 F0RMAK/T5* 'FINAL TANK TEMP. s ' ,F 8 . 1 ,T41 , ' TOT AL VENTED GAS W 

IGT, = ' .F8.1.T8I , 'WGT. OF GAS RESIDUALS = ' ,F 8 . 1 /T5 * ' WGT. OF LIO.R 
2F.SIDUALS = ' » F8 • 7 ) 

■7015 for«aT(/T20, '*** compute pressurization system weight-***'/) 

'7016 F0RMAT(t5, 'TOTAL HELIuM GAs REOO : '» F8 . 1 *741 .' WGy , PRE ssURANT SYST 
I EM r 1 * F8.1) 

'70(7 FORMATI/T42* '*** TANK AND VENT PARAMETER CALCULATIONS - CONTO. ***' 
I '/) 

C 

c 

END 
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I 


I 


1 

2 
! 
M 

5 

6 

7 

8 
9 

10 

I I 
12 

II 


PR0CEDURE DEFINITI0N PR0CESS0R - TANKWT 


TANKWT*' PROC 
C 

PARAMETER NJW=I0*N2W«2 
C 

COMMON /TANKWT/ IwOPtNOSHAP,JTKTYP(NIW»*JPl.TP(NH(i,XB<NIVlj,yO(Ntw) 
I *ZD(NIW) f'TAR(MtW) tTVL(NIW) *TH0(N2W) *TOTVL(N2W) 

C 

DIMENSION A| (N2w)tA2(N2wj»A1(N2w).Vl(N2W).V2<N2H),Vl(N2wj*VMX(N2wi 
C 

EQUIVALENCE (TOTvL* V«X) * (TAR* All * < TAR( 11 » A 2 > , ( TAR(«>i ,A1) * (TvLtVI ) * 
I (TVL(1)*V2)f (TVC(S)fVI) 

C 

END 


I 


u 

I 

to 

00 

<3 


I 

t 


I 

J 

i 


i 


I 

! 


) 
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FUNCTION TB01L 


1 

2 
1 
V 
•5 
6 


FUNCTION T80IU1) 

DIMENSION Tt< IT) . 

DATA(TC{N)iNs( t 17 j/277. S5*59»B»2?9»d«59«8*260« * 7*41,2* 787* 2 • 
1H1.2*18T.2*S2t.8f2S9. lTf7t0.f776.N»l09w.»7M«.S* I 
TBOiuaTCdJ 

RETURN 



SUBR0UTINE TC0ND 


w 

CO 

oo 

co 


I 

a 

3 

4 
•5 

' -6 

I 7 
e 
9 

10 

I I 
12 
II 
m 
is 
16 
17 
,ie 
19 
,20 
21 
22 

23 

24 

25 

26 
;27 
28 
29 
,30 
'31 
32 
31 
34 

is 

36 

37 ' 

38 

39 
: H0 
HI 
M2 


4S 

M6 

47 

M8 

49 

50 
•S| 

52 

53 

54 

ss 

S6 

S7' 


SUBROUTINE 7C0N0 (TH f TCtNBAR,THKTN, INTYPE, QCOND) 

c * 

c THIS SUBROUTINE COMPUTES THE THERMAL CONDUCTIVITY FOR NINE 

C INSULATION MATERIALS. REF., LMSC-A964947*V0L.!I» LMSC A9BI608. 

C WITH MICROSPHERE EONS, PER R.PARHLEY. EMITTANCE VALUES ARE FROM 

C LMSC A9033I6 (NASA CR-7260S). 

C * 

REAL ttSHLO*NBAR 
C * 

OELT a TH-TC 

TMEAH a (TH*TC)/2.0 

SUmT a THtTC 

SUMSOT a (TH**2>A(TC**2) 

TMPRI a TC/TH 
TMPR2 a TMPRI*TMPRI 
TH3 a TH*TH*TH 
NSMLD a THKIN*NBAR 
THKFT = THKIN/12.0 
THETAI = (1,0+TMPRlj 
THETA2 a (I.0+TMPR2) 

SIGMA a 0. I7I3E-08 
C •* 

GO TO ( 10, 20>10.40tSOr 60,70.80, 90)* INTYPE 
C P 

c ■* for double aluminized mylar-sil* net 

c p 

10 SCNST a .2.22E-09 

EMITI a 4.40E-04 « (TMEANP»0.667) 

DEMIT a ( (2,0/EMITI )-l .0) 

GO TO 22 
C *• " 

C * POR double goldized MyLAR-SILF net 

c * 

20 SCNST a 2.22E-09 

EMIT2 a 8.76^-04 * (TMEAN**0.S09) 

DEmIT = ( (2,0/EmIT 2)-I ,0j 
22 SCOND a SCNST»HBARpTMEAN 

RNUM a SIGMAPSUMSQT«SUMT*THKFT 
RDEN a (NSHLD-I .0) « DEMIT 
RCONO = RNUli/RDEN 

OCOND = (SCONO+RCOND) •*<delt/thkft> 

RETURN 

C * 

C P FOR DOUBLE ALUMINIZED MYLAR-TISSUE GLASS 

c ■*•• 

30 SCNST a 7.00E-12 

EMIT! a 4,i(0E-O4 ■* (TMEAN**0 ,667) 

DEMIT a ( (2,0/EMITI )- I ,0 j 
GO TO 42 

C * 

C ■•* FOR CRINKLED DOUBLE ALUHINIZED MYLAR-TISSUE GLASS 

C' •*• 

40 SCNST a 8.80E-I2 

EMIT! a 4.90E-04 P (TMEAN**0i6T1 
DEMIT s ( (2,0/EMITI 
42 SCOND a $CNST*(NBAR*P2>*TMEAN 

RNijM a I ,'7*SIGMA*SUMSQTPSUMTPTHKFT 
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******** tcond ******** 


58 



RDEN -s (NSHLO-I.O) * DEMIT 

«59 



RCOND = RNUM/ROEN 

60 



OCOND = (SC0NO+RC0ND1 * (DELT/THKFT) 

61 



RETURN 

62 

C 


■* 

6T 

c 


* FOR NRC-2 CRINKLED SINGLE ALUMINIZED MYLAR 

64 

c 


■# 

65 


50 

SCNST = '2.00E-I0 

66 



ENITA = H.90E-04 ■*' (TMEAN**0 »67 ) 

67 



EMITB = 5.S8E-07* (TMEAN**0«66T) 

68 



GO TO 62 

69 

c 


* 

70 

c 


* FOR SUPERFLOC 

7| 

c 


* 

•72 


60 

SCNST = I5.40E-I 1 

77 



EMJTA = 4.40E-04 * <TMEAN**0.66?) 

74 



EMITB = 4. IOE-01 

7? 


62 

DEMIT s ( ( 1 ,0/EMTTA>*( 1 .O/EMITBI-I .0) 

76 



SCOND = SCNST*(NBAR**2)*TMEAN 

77 



RNUM = S1GM.A*SUMS0T*SUMT*THKFT 

78 



RDEN = (NSHLD* 1 .0 >*DEMIT 

79 



RCOND r RNIljl/4DEM 

80 



OCOND = (SCOMO»RCOND>*(OELT/THKFT) 

81 



return 

82 

c 


-* 

87 

c 


8 FOR MICROSPHERES (104 TO 1 75 MICRONS) 

84 

c 


■* 

8*5 


70 

RCNST S | .56E-I 1 

86 



RCOND = RCNST*TH7*THETA|8THETA2 

87 



OCOND = RCONO * (OELT/THKFT) 

88 



RETURN 

09 

c 


•*. 

90 

c 


* FOR POLYURETHANE FOAM 

9 1 

c 


• 

92 


80 

PKSUBE = I.I295E-07 ♦ ( 7^48 1 E-05 * TMEAN j 

97 



OCOND s PKSUBE * (DELT/THKFT) 

94 



return 

95 

c 


■* ■ 

96 

c 


*- FOR FIBERGLASS BATTING - HELIUM PURGED 

97 

c 



98 


’0 

FKSUBE e |. 78766-07 * (TMEAN**0.662 j 

99 



OCOND = FKSUBE * (DELT/THKFT j 

100 



RETURN 

101 

c 


•*. 

102 



END 
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SUBR0UTINE TEL 



! l 

C 


••* * * *•:* <**..* -*f* * .**••*..*••* * * *, * ft..*, * •*> 


2 

c 


••* ROUTINE NAME -■ TABLE EVALUATION OR LOOKUP ■* 


1 

c 


>* ROUTINE .LANO - FORTRAN V UNIVAC 1108 EXEC 2* 


4 

c 


'* PROORAMHER - R. BOLLINGER 1941 102 26911 * 


S 

c 


>* DATE COOED - 2/2S/T0 ,*■ 


6 

c 


•* • :* .* *« * 


7 

c 




S 



SUBROUTINE TEL(XfY) 


9 

c 




10 

c 


***** explanation OF THE CALLING SEQUENCE 


1 f 

c 




12 

c 


X - VALUE OF THE INDEPENDENT VARIABLE TO BE 


11 

c 


INTERPOLATED ON, 


m 

c 




IS 

c 


Y - VALUE OF THE DEPENDENT VARIABLE WHtCHIS THE 


; 16 

c 


INTERPOLATION RESULTS, 


17 

c 




18 



INCLUDE .CIOUNT 


19 



INCLUDE :CKEYS 


:20 



INCLUOE CTAB 


[21 

c 


FORMAT (»0’IOX»*** INTERPOLATION ERROR . OVERFLOW OR NV WRONG Nvn« 


22 

6000 


21 



1 M, •■•*••) 

w 

24 

6100 

FORMAT (IHO IOX'*** INO?P, VAR, si F|o,4. * OUT OF TABLE RANGE (• 

2S 



1 FIO. 4, • TO' Fl0.4t » ) TABLE N0.M4*' NO, SUBTABLES ' IT» ' ***' ) 

(S3 

26 

c 


CD 

h-t 

27 

c 




,28 



IF(TYPE.EQ.I) GO TO 10 


,29 

c 




■10 

c 


***** EVALUATE THE COEFICIENT POLYNOMIAL FOR Y. 


11 

c 




12 



Y = XTABU ) 


11 



DO 20 I 1 := 2,NV 


14 



Y S XTABU |) ♦ X*Y 


IS 


20 

CONTINUE 


16 



RETURN 


17 

c 




78 

c 


***** evaluate the table lookup for y. 


,19 

c 


IF (XTABU ) , LE. XTAB(Nv) j GO TO 11 


40 


10 


,4| 

c 


MAKE INDEPENDENT VAR. NON-DECREASING 


42 



NVI :s NV | 


141 



NVD2 := NV / 2 


44 



DO 12 1=1 ,NVD2 


4S 



PIVOT = XTAB (NV l-l ) 


'**6 



XTAB(NV)-I) = XTABU) 


47 



XTABU ) = PIVOT 


48 



PIVOT := 'YTAB(NVI-l) 


49 



YTAB (NV (--I ) = 'YTAB(I) 


SO 


12 YTAB(I) s PIVOT 


5 1 


11 

IF (KEY 1 ,LT. 16(2) Go TO 14 


S2 

c 


TEST FOR INDEP, VAR, OUT OF RANGE 


SI 



IF (X ,GE. XTAB( 1 ) . .AND. X . LE, XTAB ( NV) J GO TO 74 


S4 



WRITE ( IOT ,$100) X.XTAB ( | ) ,XTAB(NV),JTABID,NLTBL 


ss 



IF (KEYI ,NE. 16)2) GO TO 14 


S6 



KEY2 s KEYI 


S7 



RETURN 
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TEC ******** 


58 

1H 

Y B YL5INT(XTAB»YTftB>NV,X,NJPt*901 

59 


RETURN 

60 

90 

WRITE (IOT»6000) NV 

61 


CALL EXIT 

62 

C 


61 


end 
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SUBR0UTINE TEMP 


W 

I 

to 


1 

2 
1 
4 
3 

i 6 

, T 
8 
9 
10 

I I 
12 

II 

14 

15 

16 

17 

18 

19 

20 
.21 
22 

23 

24 

25 

26 
27' 
28 

29 

30 

3 1 

32 

33 

34 

35 

36 

37 

38 

39 

40 

4 1 

42 
41 
44 
•45 

46 

47 

48 

49 

50 
31 
>52 
33 
S4 

ss 

36 

37 


SUBROUTINE TEMP(T) 

C 

Cv... ROUTINE To CONVERT nBS-SS To lPTS-68 In THE RANGE BELOW NBP-OXYGEn 
C.... (90.18 NBS-33 OR 90.188 IPTS-68) BY INTERPOLATION FROM TABULATED VALUES 
C.... GIVEN IN METROLOGIA 3* 47(1967) 

C 

c.... routine To convert ipts- 48 To ipts-63 by method given by 

C,... THOMAS. B. DOUGLAS (JOURNAL OF RESEARCH NBS VOL 73A N03 SEPT-OCT 19691 
C.... IN THE RANGE 90.18 TO IOOOO K. 

C 

DIMENSION CIING(38) 

c 

DATA (CMNG { 1 ) , I : I * 36 ) /8 j900*7. 1 00*3 . 200* 3. 400* I i 700*0. 300*-0, 800. 

2 -1 .400 *.) ,SOO*-l .2O0*»0,7D0*-0. IO0*O.S00*0.900* t . 1 00* 0.900*0.300* 

3 -0.600,-1 .700,-3. 000 *-4,300 *-3.600 *-6. 800*»7. 800*. 8.600 *-9,000. 

4 -9,000*-8.600*-7,700*-6,400*-4.900,-2.900*-0i500*2. 200*4. 900* 
37.400*9,600*11.100/ 

IF( IT* l-T« 273. 130100). AND, (T.GT. 273, 1499 00) j RETURN 

IF(T.GT,90. 1800.) GO TO 2 

IT=T 

T1 = IT 

ITsIT«S3 

DELTr (CHNO ( IT }♦ ( (CHNG(IT+| >-CHNG( IT j >* ( T-TI ) j ]/ I 000.00 

T=T*DELT 

RETURN 

2 IF(T.GT.273. ISOOjGO TO 3 
C=T-273.IS 

CALL WFIND(T,W) 

TOP: t .F.o+3 . 9843 1 7E-3*C-S. 83301 9E-7*C*«2+4 .3371 7E- 1 2*( 1 00.00-C )* 

I ,C**3-W 
TOP:TOP*230. 97 

BOTei .no-2- 9389E-4RC+4. 3741 E-9* (73. 00-C)*C**2 

DELT:TOP/BOT 

TsT tDEL'T 

RETURN 

•3 IF(T.GT.903.8900)GO TO 4 
CST-273.I5 

TOP=4.904E-7*C*(C-!00.00) 

BOTsl .00-2.939E-4*C 
PT:0 ,043 
PT=PT*(C/I00.00) 

PT=PT*(C/IOO.OO-I.OO) 

PT=PT*(C/4I9. 3800-1 ,00) 

PTaPT* (C/630.7400- 1.00) 

DELTsTOP/BOT 

DELTnDELT+PT 

T=T*DELT 

RETURN 

4 IF ( T.GT. 1337.3800)00 TO 5 
C=T-273.I3 

TOP:- 1 .3 1 43* 1 .30 ! 6E-3*C+| ;5623E-6«C**'2 

BOTrl .000+4, I0IE-4*C 

DELTSTOP/BOT 

T=T+DELT 

RETURN 

3 IF (T.GT, 10273. 1300) WRITE (6. IOO)T 

100 FORMAT) t TEMP TO BE CONVERTED EXEEDS IOOOO C INPUT' WAS**P20il0) 
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******** 

TEL 

******** 

SB 

14 

V e YLGlNTfXTAB,YTJBfNV,X#NJP,IMO) 

S'? 


RETURN 

60 

MO 

WRITE ( IOTf 6000) NV 

61 


CALL EXIT 

62 

C 


61 


END 
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TEMP 


58 

59 

60 
61 
62 


Ee EXP ("22135. 00/T) 

DECTs 1 ;. 56E-4*T*T.8ME-7*< 1 .00-E)«T**2 

T s T OELT 

RETURN 

END 




I 
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SUBR0UTINE THETAB 


1 SUBROUTINE THET49(DB*CPB,DIB»02B. SHI) 

2 .C 

1 C CALCULATES SPECIFIC HEAT INPUT f THE”A ) FROM EON OF STATE 

4 C IN BRITISH UNITS 

5 C MUST FOLLOW CALLS OF PROPB.CPVTDB.Df'ODB, AMO DPDTB TO DEFINE 

6 C DD*OPB»D I E * +D2B 

7 C INPUT AND OUTPUT PARAMETERS ARE IN BRITISH UNITS 

8 SHI=DB*CPB*( D I B/D2B) 

9 RETURN 

10 END 


w 

I 

to 

co 

05 
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SUBR0UTINE THKWTG 


1 

2 
1 

4 

5 

6 
r 
8 
9 

10 

I I 
12 
IV 

m 

is 

16 

17 

18 

19 

20 
21 
22 
2V 

24 

25 

26 

27 

28 
29 
10 

II 
12 
11 

14 

15 

16 

17 

18 
19 

40 

41 

42 
41 

44 

45 

46 

47 

48 

49 

50 

51 

52 
Si 
S4 

ss 

56 

57 


C 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 

c 

c 

c 


SUBROUTINE 'THKWTG (KFLG, IGAS, ITYPE,MTYPE.TEMP,PU*HD*AREA*Hf,RAD, 
t RADI .TWEGHT. KMT) 

» * .*.•*■* •* * * » •* •*- * * * * * * * 

* THIS ROUTINE CALCULATES WALL - * 

1 '* THICKNESS AND WEIGHT ( IF NOT •* 

'* SPECIFIED WEIGHT IS * 

* MINIMIZED) •* 

« OATE CODED JULY 1972 * 

* PROGRAMMER J. MCKAY t DI9-41 * 

* BLDG 201 X4SI78 ■* 

* * :* •* * -* • • * •* ■* ■* •* * * * •* :* 

INCLUDE CHATRL.LIST 
INCLUDE TABLOK 

DIMENSION ER(S).lM(l).RK(S.2)tWT(l) 

DATA IM/2,|,S/ 

DATA ER/|., 1.25, I. 5*1.75,2./ 

DATA (RK(I, l),Is|,S) / .50, .605, .80,. 925,1, II / 

DAT,A (RK(Iy2)*I=IiS) 7 .67*. 745, .84, .955, 1.20 / 

KFLG s I FOR COMPLETE ELLIPSOID 

=2 ellipsoid CONNECTED TO OTHER SHAPE 
IGAS a I FOR 02 ,* 2 FOR H2 

ITYPES. Tank SHAPE I =CYLt23FRUS.0F CONE, IsELL IPSO ID 
4=CYD. -ELLIPSOID 

MTYPE3. TANK MATERIAL TYPE (IF NOT INPUT PROGRAM WILL 

SELECT LIGHTEST) 

FIND FLUID DENSITY 
CALL FDNSTY ( IGAS. TEMP* PUi RHOF) 

TANK PRESSURE 
P'S PU 0.0229*HD*RHOF 
JKM s 0 

IF (P ,GE , 1000.) JKM s S 
IF (P ,GE. 1000, ) JKM = |0 
ISTP ••= I 

IF (MTYPE .EQ. 0) ISTP s- 1 
KMT s IM 

DO 200 Is I * ISTP 
IMTR :s IM ( I j 

IF (MTYPE .EO. 0) 60 'TO (00 
KMf 3 MTYPE 
IMTR s MTYPE 

100 CALL FINTAB ( NTBID(2S >+IMTR i . ... 

LOOKUP FTU FOR THE PARTICULAR MATERIAL (IMTR) 

FTU s MIPE(I*TEMP) 

CALCULATE THICKNESS FOR THE GIVEN SHAPE 
GO TO (|IO.I20,nO*(IO).iTYPE 

CYLINDER OR CYLINDER - ELLIPSOID 
1 10 THK s 2.0*P*RAD / FTU 
GO TO 180 

FRUSTRUM OF CONE 
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*> 8 

C 

CALC. CONE HALF ANCLE 

S9 

120 

COSALp - HT / (SQRT(H7*HT* ( RAO t-RAD j*«2 ) ) 

60 


THK :s 2,0 *P*AMAX( (RaD.RADI ) / (COSALP*FTU) 

6| 


CO TO 180 

62 

C 

ELLIPSOID (SPHERICAL) 

63 

c 

CALC. ELLIPSE RATIO 

64 

170 

ERATO a AKAXI (HT,RAp) / AM ! N ) (HT.FAD ) 

65 

C 

INTERPOLATE ON ERATO TO FIND K 

66 


DO 140 0=1,5 

67 


01 = 0 

68 


IF (ERATO - ER ( 0 ) ) |40,I60<|50 

69 

140 

CONTINUE 

70 

c 


71 

ISO 

YK = RK(0|-| ,KFLC)*(ERAT0-ER(0(-l) >*(RK(OI ,KFLG)-RK(OI 

72 


1 / (ER(OI )-ER(Ot-t)) 

77 


GO TO 170 

74 

160 

YK s RK (0 1 ,KFLG ) . . 

75 

170 

THK = (ERATO/2. ♦YK)*P*AMAXI (HT, RAO) / (2,0*FTU) 

76 

c 

convert thickness from feet TO INCHES 

77 

180 

THK s 12,0 ■* THK 

78 

c 

CHECK FOR LESS THAN ALLOWABLE THICKNESS 

79 


IF (THK .LT, MINTHK(IMTR,JKM)) THK = MT NTHK ( IMTRtOKM ) 

80 

.<• 

CALC. WEIGHT FOR EACH MATERIAL 

81 


WT( I) a 0.1(25* HHOL ( I MTR ) * TWK * AREA 

82 

c 

SAVE MIN WEIGHT AND MATERIAL TyPE 

87 


IF ( WT ( I ) .GE. WT) GO TO 200 

84 


WT a WT < I ) 

85 


KMT a If(TR 

86 

200 

continue 

87 

c 

SET WEIGHT EQUAL TO LIGHTEST 

88 


TWEGHT = WT 

89 


RETURN 

90 


END 


I 
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FUNCT10N VFUNC (TKGE0M) 


1 

•2 

C 

FUNCTION VFUNC (I) 

3 

c 

, 

4 

c 


S 

c 

■* ROUTINE INTERPRETS input dimensions • 

6 

c 

* TO CALL GEOMETRY PROGRAMS 

T 

c 

* OATE COOED JULY 1972 

8 

c 

* PROGRAMMER J. MCKAV , Dj9-43 

9 

c 

* BLOG 201 X4SI78 

10 

c 


1 1 

c 


12 


INCLUDE TANKWT.LIST 

IT 

c 


14 


JMP a IABS <JTKTYP(I)i 

IS 

c 


16 

c 

VOLUME CALCULATION ROUTINES 

IT 


GOi TO ( 100* 1 10* 120* 130) • JMP 

18 

c 

, CYLINDER 

19 

100 

VFUNC = .CYLNOR ( YD( I ) *X0( 1 1 ) 

20 


IF (IWOp .EQ. 3) VFUNC = 0. 

21 


GO TO SOO 

22 

c 

i FRUSTRUM OF CONE 

2T 

1 10 

VFUNC = FP.CONE (YD(I)»XDin,ID(in 

24 


GO TO SOO 

■ 2S 

c 

ELLIPSOID 

26 

120 

VFUNC :s KSPHER ( XO ( t ) • YD ( 1 3 ) 

27 


GO TO SOO 

28 

c 

cylinder less ellipsoid 

29 

130 

VFUNC = CYLSPH (XDII)|YD(I)I 

80 


GO, TO SOO 

81 

c 


82 

c 

AREA CALCULATION ROUTINES 

88 


ENTRY AFUNC (I) 

84 

c 


3S 


JMP s IABS (JTKTYP(I)) 

86 


GO TO (200t2IO«220*230) *JMP 

87 

c 

CYLINDER 

88 

200 

VFUNC = ARACYL (YD(I).XO(n) 

89 


GO TO 2S0 

40 

c 

FRUSTRUM OF CON* 

4| 

210 

VFUNC s AREAFR ( vD( I ) ,X0( It ,ID(I )) 

42 


GO TO 2S0 

43 

C 

ELLIPSOID 

44 

220 

VFUNC = ARSPHR (XD(ItiYD(I»j 

4S 


GO TO 2S0 

46 

C 

CYLINDRICAL ♦ ELLIPSOIDAL SHAPE 

47 

230 

VFUNC a ARACYL ( YD( I ) ,XD( I ) ) 

48 

C 

SHOULD AREA OF ELLIPSOID BE INCLUDED 

49 


IF (JFLTP(I) .LT. 0) GO TO SOO 

SO 

c 

YES INCLUDE IT 

SI 


VFUNC - VFUNC ARSPHR CXD(I)*YD(I)j 

S2 


GO TO SOO 

S3 

2S0 

IF (JFLTP(I) .LT, 0) VPUNCs 0. 

S4 


GO TO SOO 

ss 

C 


S6 

C 

HEAD CALCULATION ROUTINES 

S7 


Entry hfunc (I»pvou 
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•**•**•* 


58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 
■77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 


JMP = IABS (JTKTYP(I)) 

GO TO (300,310, 340, 370), JMP 
C CYLINDER 

100 CALL CYLHED (PVOL, YD ( I ) ,HD ) 

VFUNC = HD 
GO To 500 

C FRUSTRUM OF CONE 

310 PV s PVOL 

IF (JTKTYP(I) .GT. 0) GO TO 320 

C INVERTED FRUST, OF CONE 

PV s TVLU) - PV 

320 CALL FRHEAD ( Py . YD( I ) , ZD ( I) , XD( I! »HD) 

IF (JTKTYPU) . GT. 0) GO TO 330 
HD = XD ( I ) - HD 
130 VFUNC = HD 
GO TO 500 

C ELLIPSOID 

340 PV s PVOL 

IF (JTKTYP(I) .GT. 0) GO TO 350 
C INVEHTED ELLIPSOID 

PV a TVL(I) - PV 

350 CALL ELIPS6 (PV,XD( I ) , VD ( I ) ,HD5 
IF (JTKTYP(I) ,GT. 0) Go TO 360 
HD = XD(I) - HO 
160 VF1JNC = HD 
GO TO 500 

C HEAD BETWEEN CYLINDER AND ELLIPSOID 

370 CALL CYUSPH (PVOL,XD( I) , YD(I),HO) 

VFUNC a HO 
500 CONTINUE 
RETURN 
END 
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FUNCTI0NJMELT 


W 

03 

O 


1 

FUNCTION TNELT(P,KJ 

2 

IF(K,E0.2)GO TO 1 

1 

C , s 1 .769 
PO a 2677.2 

4 

8 

PT = 0.00180 

6 

TT a S4.3<507 

7 . 

X 1 a 1 . o/c 

8 

T b ( (TT**C J * <<P/PO> 

9 

CALL T£f1P(T) 

10 

tmeltst 

1 1 

RETURN 

12 . 

1 CONTINUE 

11 

A .3-1879.0828 

14 

B s 0.9261018 

IS 

C s 1.0/1.798 

16 

Ts((p-A)/B)**C 

17 

TMELTbT 

18 

RETURN 

19 

END 


I 
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******** 


FUNCT10N TMELT B 


FUNCTION THELTB(PB*K) 

P = PB ■* 6,8 < ?47S72E*VI,0t12'5E*5 
T=TMEtT(P,K] 

TMELTB c T •* 1.8 

RETURN 

END 


W 

i 

co 

o 

to 
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. \ 

SUBR0UTINE TNKWTA 


1 

C 

2 


s 


4 

c 

S 

c 

6 

c 

7 

c 

8 ‘ 

c 

9 

c 

10 

c 

II 

c 

12 

c 

IS 

c 

14 

c 

IS 


16 


IT 

c 

18 


19 


:20 


: 2 l 

c 

l 22 


, 21 


i 24 


1 :2S 


26 

c 

I 27 

c 

.28 


29 


■so 

c 

1 SI 


l 12 


i ,r 


1 74 

c 

1 IS 


S 6 


1 ir 


i 18 


S9 


j 40 




■ 4 2 


41 

c 

1 .44 

c 

! -4S 


46 

c 

: 47 


48 


49 


1 SO 


1 s ' 

c 

S 2 


SI 

c 

S4 


i SS 


S 6 


l S7 



SUBROUTINE TNKWTA d5w,FLDV0L,PCULLG.DIAM.TKTEMP,TKPRES,MTYPE* 
I TNKVL, WTQFTK,TOTARA,HC) 

'* * •* '* •"* » * •* • * * * .* * 

* ROUTINE CONTROLS THE CALCULATION OF * 


* TANK VOL., AREAS, HEAD, WALL THICK- * 

•* NESS AND WEIGHTS. ■* 

* FOR BOTH OXYGEN AND HYDROGEN TANKS •* 

* DATE COOED JULY 1972 •* 

* PROGRAMMER J, MCKAY , D19-4S •* 

* BLDG 201 X4SI78 R 


•* * # * * :» * * * • • • •* • 

INCLUDE CONST..LIST 
INCLUDE TANKWT.LIST 

DIMENSION 0IAM( N2w) , FLDvOL < N2wl ,MT yPE ( N 2w ) , PCULLG ( N2W j , RMAX ( N2w j , 
I TKPRES(N2W) ,TKTEMP(N2W),TNKVL(N2W) ,TOTARA (N2W) .WTOFTK (N2W) 

.2 ,HC(N2W) 

DO ICO IS|,2 

RMAX ( I ) s DIAM(I) / 2. 

TNKVLd) s FLO VOL ( I j / (I , O-PCULLG ( I ) / 1 00. j 
100 TOTVL(I) .S 0. 

ISW s | STORAGE TANKS 
ISW c .2 ACCUMULATOR TANKS 
If (ISW ,EQ, 2) GO TO I 10 
IF (IWOP .GT. I) GO TO 200 

CALCULATE MAX. VOLUME (SPHERE) 

110 DO 190 1st, 2 

VMX(I) = SPHERE (RMAX ( I j , RMAX ( I ) ) 

IF (VMX(I) ,LE , TNKVL ( I ) ) GO TO ISO 

calc, new radius of sphere 

RmAX(I) = (FLOVOL(I) 7 (2,*PI20S) )*»< I ,/S.) 

DIAM(I) •- 2,0*RMAX(I) 

120 V2 ( I ) = 0. 

VI < I ) s TNKVLd ) / 2, 

Vim = Vld) 

HCd) = 0. 

GO TO mo 

ISO IF (VMX(l) ,EQ, TNKVLd)) 00 TO 120 

, REQUIREO VOL. GREATER THAN MAX SPHERE 

CALC, VOL OF ADDED CYLINDRICAL SECTION 
V2 ( I ) B TNKVL ( 1 1 — VMX(I) 

. CALC, HEIGHT' OF CYLINDER 
HC(I) = VZ(J) 7 (PlRRMAX (I )**2 ) 

Vld) 8 VMX(I) / 2, 

VS I 1 ) B Vld) 

190 VMXd) :s TNKVLd) 

CALCULATE HEAD FOR OPTION IWOP ■* | 

IF (FLDVOLd) , GT, Vld)) GOTO ISO 
HEAD IN LOWER HEMIS 

CALL SPHSEG (FLO VOL ( I ) ,RMAX( I ) ,THO( I ) ) 

GO TO 1 70 

ISO THDd) ■= RMAXd) 

IF (FLOVOLd) ,GT, VI(tWV2(I>) GOTO 160 
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TNKWTA 


******** 


*58 

<59 

60 

61 

62 

61 

64 

65 

66 

67 

68 

69 

70 

71 

72 
71 

74 

75 

76 

77 

78 

79 

80 
81 
82 
81 

84 

85 

86 
87 
80 

89 

90 

91 

92 
91 

94 

95 

96 

97 

98 

99 
100 
101 
102 
101 


106 

107 

108 
109 
I 10 
III 
M2 
Ml 
114 
1 15 


C head in cylinder 

PVOL = FLDVOLt I )-Vf ( I ) 

CALL CYLHEO ( PVOL, RMAXd j ,HC M 
THD ! I ) = THDd) ♦ HCI 
GO TO 1 70 

160 THDd) = THDd) ♦ HCd) 

PVOL = THKVLt I ) - FLDVOL(I) 

C HEAD IN UPPER HEMIS 

CALL SPHSEfl (PVOL,RMAXd)»HCI ) 

THDd) = THDd) ♦ RMAX ( I ) - HCI 
C FIND AREAS 

170 Aid) = ARSpHR (RMAXd). RMAXd)) 

Aid) = Aid) 

A2d) = ARACVL (RMAX(I).HCd)) 

C TOTAL AREA 

TOTARAd) = AI(T) ♦ A2dj ♦ A1(l) 

C CALCULATE TANK HEIGHT (IWOPslj 

KFLG = I 
HTGI = 0. 

IF (HCd) .EQ. 0.) 60 TO 180 
KFLG = 2 

C CAtC. HEIGHT OF CYLINDRICAL SECTION (IF NECESSARY} 

CALL THKWTG ( KFLG, I , I , MTYPE (I ) . TKTEMP (I ) , TKPRES (I ) ,THD d ) , A2 (I ) , 

I HC ( I ) »RHAX ( I )» RMAXd ) »HTG I tMFLCI ) 

C CALC. HEIGHT OF HEMISPHERICAL ENDS 

180 CALL THkHTG (KFLG,I,1,MTYPE(I)»TKTEMPd).TKPRESd)»THDd), 

I 2.0*AI (I) ,PMAX(I ),RMAX(I).HC.WTG2,MFLG| ) 

C 

C TOTAL TANK WEIGHT (02 OR H2) (MAIN OR ACCUMULATORS) 

WTOFTKd) s HTGI ♦ HTG2 
190 CONTINUE 
RETURN 
C 

C CALCULATIONS for GENERAL TANK SHAPE INPUT 

C MAIN STORAGE TANKS ONLY (IWOP s 2 OR 1) 

C 

200 KF = I 

ISV = NOSHAP ♦ 1 

C FIND FLUID TYPE OF BOTTOM TANK 

KFL := lABS(JFLTP) 

Kl = I 
K2 = 2 
Kl = I 

IF (KFL ,EO. I ) GO TO 210 
Kl = 2 
K2 = I 
Kl = -I 

C CALC, VOLUME ANO AREA OF TANKS 

210 DO 240 I=l*NOSHAP 

KFL2 = I A8S ( JFLTP ( I ) ) 

220 IF (KFL ,EQ. KFL2 ) GO To 210 
C CHANGE IN FLUID TYPE 

ISV = I 
KF = 2 
KFL = KFL2 

C VOLUME FOR A PARTICULAR TANK SHAPE 

210 TVL(I) s VFUNC (I) 

TOTVL(KF.L) b TOTVL(KF.L) + TVLd) 
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I 


TNKWTA | ******** 


! It6 

C 


AREA FOR A PARTICULAR TANK SHAPE 

, 1 >7 



TARU) = AFUNC < I j 

M8 


240 

CONTINUE 

; ii9 

c 


HOW MANY SETS OF TANKS (1 OR 2) 

1 120 



IF (KF .EQ. 2) 00 TO 2S0 

S-ui 



K j a KFL 

; 122 



K2 = K 1 

1 121 



K1 = 1 

1 124 ' 


2S0 

IF ( I HOP .HE. 3) 60 TO 100 

12-5 

c 



! 126 

c 


FIT CYLINDRICAL SECTION (IWOP a 3) 

j 127 

c 



1 1 28 



1ST a 1 

| 129 



DO 280 KeXltK2tK1 

' 110 

c 


K IS THE FLUID TYPE FLAG 

! Ill 



DO 260 ICIST.NOSHAP 

112 

c 


SEARCH list for cylinder (ONE MUST' BE PRESENT AND 

HI 

c 


the height . should be iero FOR IWOP a 3) 

; ii4 



JCYL s I 

ns 



IF ( IABS( JTKTYPd ) ) .EQ. 1) 60 TO 270 

116 


260 

CONTINUE 

! 117 

c 


CYLINDER IS AT JCYL IN LIST 

; lie 


270 

TVL(JCYL) = TNKVL(K) - TOTVL(K) 

; H9 

c 


FIT CYLINDRICAL SECTION TO REQUIRED VOLUME 

140 



XO(JCYL) = TVL(JCYL) / (PI*YD(JCYLI**2) 

1 14 | 

c 


RE-CALCULATE AREA FOR fitted cylinder 

l na 



TAR(JCYL) := AFUNC (JCYL) 

! 1 41' 



TOTVL(K) a TNKVL(K) 

! |44 



1ST = JCYL ♦ 1 

I4S 


280 

CONTINUE 

: 146 



GO TO 320 

147 

c 


RE-CALCULATE PERCENT ULLAGE VOLUME (IWOP a 2 ONLY) 

148 


300 

DO 310 K=KI,K2,K3 

| 1 49 

c 


I totvl calculated FROM the INPUT DIMENSIONS 

ISO 



PCULLG(K) = (fTOTVL(K) -FLOVOL(K)) / TOTVL(K) )*IOO, 

1 ISI 


110 

TNKVL(K) ■ — TOTVL(K) 

, IS2 

c 



1 S3' 

c 


HOW .CALCULATE HEAD FOR EACH TANK SET 

1 I* 54 


120 

1ST a 1 

ISS 



IND a ISV - 1 

1 S6 



DO 77 O KSKItK2»K3 

IS7 



THD( K ) =0. 

1 ISB 



TOTARA(K) s 0. 

! IS9 



PV a 0. 

160 



WT6I s 0. 

1 161 

c 



, 1 62 



DO 140 IslSTtlNO 

161 



PV a PV ♦ TVL(I) 

:■ 164 



IF, (PV *LT. FLDVOL(K) ) 60 TO 330 

! I6S 



PVOL = FLDVOLtK) - PV ♦ TVL(I) 

! 166 

c 


CALCULATE HEAD FOR THIS TANK SHAPE 

, 167 



THD(K) = THD(K) ♦ HFUNC( I *PV0L) 

1 168 



GO TO ISO 

; 169 


110 

THD(K) S THD(K) ♦ XDU) 

170 


340 

CONTINUE 

! 171 

c 


1 HOW CALCULATE TANK WEIGHTS 

172 


ISO 

DO 360 laiST* INO 

1 173 



JTKTP a IABS ( JTKTVP( 1 1 j 
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174 

C 


175 


CALL THKWTfl (2»K , JTKTp*MTYPE {* ) * TKTEMPf K j 

176 


1 Xr>(I),YD(l)*ZD(l)tWTG2,«FLSn 

177 

C 

178 


WTGI = WTGI ♦ WTG2 

179 

c 

CALC. TOTAL AREA THIS (02 OR 

ISO 


TOTARA(K) a TOTARA(K) ♦ TAR ( 1) 

181 


360 CONTINUE 

182 

c 

TOTAL WEIGHT FOR THjS (02 OR 

183 


WTOFTK(K) a WTGI 

j 84 

c 

RESET INDEX FOR UPPER TANK 

185 


1ST a. ISV 

186 


IND a NOSHAP 

187 


370 CONTINUE 

188 


RETURN 

189 


END 


>TKPRES(K j *THD(K j * TAR ( I i * 

H2 j TANK 
H2 i TANK 
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SUBROUTINE TRAC 


C 

SUBROUTINE TRAC (NAME) 

C 

IOO FORMAT (IHO '** TRACE ** 
C 

WRITE (6* 100) name 

RETURN 

END 


• A6 ) 
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******** FUNCTI0N TSAT 


t 

2 

3 I 

4 

5 2 


6 

7 

6 



9 

3 


10 



1 1 



12 

6 


13 



14 

7 


IS 



16 

10 


17 



ie 

12 


19 



•20 

13 


21 



22 

14 

w 

23 


24 

IS 

CO 

0 

25 

26 

16 

00 

27 

so 


28 



29 



FUNCTION TSAT<P,I) 

00 TO (l, 2 , 3 . 2 » 3 *&*T» 6 , 7 ,IO» 3 »l 2 tn.| 4 ,IS»l 6 ),I 
T = ISI 9 ./( 12 . 04 -ALOGIP)) 

GO TO SO 

T = 22 S. 74 /( 8 . 7 I 37 -AL 0 G(P) ) - , 9 S 
IFIP.GT. 19 , )T= 2 S 2 . I I / ( 9 ,4288-ALOG (P ) ) .4 

IF(T.GT.S 9 .B) T = < 59,8 
GO TO SO 

T s 1374 . /ill. 63 -AL 0 G<Pj) 

IF ( P , GT, 200 , )T s 1763 . /( I 3.43-ALOG (P) ) 

GO TO SO 

T a 1839 ./<|t. 83 -AI. 0 GtP)> 

GO TO SO 

T = IOSO,/(S. 73 -At.OG| 0 (P) ) 

GO TO SO 

T = 1 1 68 , 7 / ( 1 2 . 3 S 79 -AL 06 ( P ) ) 

GO TO SO 

T = S 090 ./( I 4 ,MS-AL 0 G(P) ) 

GO TO SO 

T s 7348 . 3 /( 16 . S 4098 -AL 0 G<Pj> 

GO TO SO 

T s 66 S 0 , 7 ( I 3 . 90 SS-ALOG{P)) 

GO TO SO 

T = l.8*| 197 . /( 7 . 4837 -AL 0 G| 0 (P/. 01934 )) 

GO TO SO 

T = |.8* | 996. /( 8.28TS-AL061 0 ( P / .0 1 934 ) ) 

TSAT=T 

RETURN 

END 
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F(!lNCTI0N tsat 


date 


w 


I 

co 

o 

CO 


1 

2 
1 

4 

5 

6 
T 
6 
9 

10 
I I 
12 
IV 

14 

15 

16 
17 

ie 

19 

20 
21 
-.22 
2V 

24 

25 

26 
27 
20 
29 


1 FUNCTION TSAT(P, I) 

60 TO ( I (2f 3. ?»7f 6,7*6, y f 1 0t 3» I2» 1 7* |4. t5* 16 1 , I 
! ITS 151 9,/ ( I 2,04«AL06(P) ) 

1 60 TO SO 

I 2 T s 225.74/(8. 7 1 37-ALOG (P) ) . .95 

IF(P,0T,|9.)T=252ill/(9,4288-flLO6(P}) - .4 
IF! T.6T .59,8 ) T = 59,8 
00 TO 50 

ITs l374.7fll.63-Al.06tP)) 

IF IP, 6T ,200, )T s l765./(l5,4l*AL0G(P)) 

GO To 50 

! 6 T s I839./(II.83-AL0G(P)) 

GO TO 50 

1 7 T s | 050,/ (5.73- ALOG ) 0 (P ) ) 

I GO TO SO 

' 10 T s 1168. 7/(12, 1579-AL06(Pj» 

I GO TO 50 

! 12 T s S090./<l4.45-AL06(Pj) 

1 GO TO SO 

I 13 T s 7348.3/(16. 54098 -AlOG(P> ) 

GO TO SO 

I 14 T s 6650.7(13. 40S5-AUO6(P)) 

j GO TO SO 

i IS T S I. 8*1197. /(7.4837-ALOGIOIP/. 01914)) 

| GO TO SO 

| 16 T s I. 8*1996.7(8. 2875-AL06|0(P/. 01934}} 

| 50 TSATsT 

. RETURN 

! end 


I 


I 


I 


l 
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•**•»•*« FUNCTI0N TSATH 


td 

i 

co 

i- 1 

o 


1 

2 
1 

4 

5 

6 

7 

8 
9 

10 
I I 
12 
13 

m 

15 

16 

17 

18 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 

29 

30 

31 

32 


FUNCTION TSATH { TEMP »H$» HI. i 
DIMENSION R(I9),TL((9).TG(I9)»TF<I9) 

DATA R/ 1 .022 *2.0, 4. 0*8.0* 1 4.0* 25. 0,43.0*69,0*99. 0*1 28. 0*15 lio* 

I 165.* 176.0* 182,0* 18s. 0* 186.5*187.25*187.46875* 187.506/ 

DATA . . . TF/24.845, 

227.07*29.81 *31.07*36. 1 8* T9. 96*44. 1 2*48. 33*5 1 .97*54.79*56.72*57.80* 
358.57*58.99,59.18*59,29,59.34*59.357*59.356/ 

DATA T6/60.3I *65. I I *70,59 

4*76.35*80.98,85.11*87.40*86.54*81.94*74.15*64.83*56.86*47.74,39.56 
5,33.46*28.34*22.31*18.66*16.55/ 

DATA TL/-I72.8,-|29. 13,-124.25,-1 17.79 

6*- I I 0.86 *.| 01 .3,-89.04 *-74.22 *.50. 58, -41. 4 3. -70. (IT*. 20. 56, -I 1.13, 
7-4.27,1. 17*5.54*10.83*14,29,16.36/ 

T=T£MP 

IF(T.LT,24,845)T=24.845 
IF(T.GF.59.356)T=59.356 
DO 104 1=2,19 
JF(T-TF(I))I02,I0I,I04 

101 HL=TL(I) 

HG=TG(I) 

TSATH=R(I) 

return 

102 D=TF ( I ) -TF ( I- 1 j 
TRR=TF(I)-T 
TTR=T-TF(I-|) 

HL=(TLU )*TTP*Tun-l >*TRR)/D 
HG=(TG(I>*TTR*TG(I-I WRR1/D 
TSATflr ( R ( I j *TTR*R <I-I)*TRR)/D 
RETURN 
104 CONTINUE 
RETURN 
END 


1787 C 

1784 o' 

1785 0 

1786 0 

1787 0 

1788 0 

1789 0 

1790 0 

1791 0 

1792 0 

1797 0 
I 794 0 

1795 0 

1796 0 
I 79T 0 

1798 0 

1799 0 

1800 0 
1801 0 
1802 0 

1803 0 

1804 0 

1805 0 

1806 O' 

1807 O' 

1808 O' 

1809 01 

1810 01 
18 11 O' 
I8|2 01 
1813 01 
I8|4 01 
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SUBR0UTINE TSIZEI 


I 

•2 

i? 

u 

>7' 

1 8 
1 9' 

10 

11 

12 
n 
m 
is 
16 
IT 
IS 

19 

20 
21 
22 
27 

24 

25 

26 

27 

28 
29 
,70 

71 

72 
77 
74 

'2 s 

,7* 

:77' 

,78 

79 

|40 

i"»l 

42 

147' 

'44 

'4S 

;46 

■47' 

,48 

49 

|S0 

>S2 

S7 

S4 

!SS 

:S6 

1st- 




c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 

c 

c 

c 


c 

c 


c 

c 


c 

c 


* *•*:*•* #v# :*•.-* * ** * •# ..**•*• •*.■#■ * ■*■ 

■* routine name - initial tank she routine 

■* ROUTINE LANG - FORTRAN V UNI VAC 1108 EXEC 2* 

•* PROGRAMMER - R. BOLLINGER 1947 102 26977 * 

■* DATE CODED - 4/28/70 * 

•* REVISED - JULV 1972 * 

<* PROGRAMMER - J, MCKAY 01947 .201. 4SI78 * 

'* '* * :* ■* •» * * * * * ** * ■* •* * * ■*■ * ■*■•*■ *■■*• 

SUBROUTINE TSIZEI (IFLG) 

LOGICAL D! AG 

INCLUDE CACCUN 
INCLUDE CCNFI6 
INCLUDE CENG 
INCLUDE CHEX 
INCLUDE CIOUNT 
INCLUDE CMATRL 
INCLUDE CMOTOR 
include ctank 

INCLUDE CTURBN 

DIMENSION WGGHEX(2J,WGGTP (2) 

IF (DIAG(b»6HTSIZED) WRITE (107,6000) FLDLOD.STTEMP.SPGTEM, 

I SOPRES.SMFLUX r WGGTOT, ,HXMRAT( I , I ) , 1 = 1 ,2) , 

.2 GWEGHT,TMRaTO,TIPWT,MIXRaT 

***** COMPUTE THE TOTAL PROPELLANT USE BY THE ENGINES, HEX 
***** AND GAS GENERATOR FOR EACH GAS (02 AND H2j 

H2I a WGGTOTI I )/< I .0 HXMRAT( 1,1)1 
H22 = W0GT0T<2)/< I .0 ♦ HXMRAT(I,2)) 

WGGHEX(2) = H2 I ♦ H22 

WGGHEXM) = WGGTOTHJ - H2I * WGGT0TI2) - H22 

H2I e 6wEGHT(lj/(I.O ♦ TMRATO(I)) 

H22 3 GWEGHT (2) / ( 1 ,0 ♦ TMRATO ( 2 ) ) 

WGGTP(2) s H2 I ♦ H22 

WGGTP ( | ) -s GWEGHTf | ) . H2I GWEGHT { 2 ) - H22 

IF ( IFLG.EQ.2 ) GO TO 70 

WET0T2 :="TIPWT/( I .0 MIXRAT) 

WTT0T(2) a WET0T2 ♦ ,07 * WET0T2 

WETOTI a TIPWT - WTT0T(2 j 
WTTOT( I ) s WETOTI ,07 * WETOTI 

GO TO 80 

70 WTTOT (2) e TIPWT/(l,0 ♦ MIXRAT) 

WTTOT(I) s TIPWT - WTT0T'(2) 

80 CONTINUE 

DO 6 11=1,2 


I 
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••*•*«*• TSIZEl ******** 


*>8 
*59 
60 
6 1 
62 
6? 

64 

65 

66 

67 

68 

69 

70 
?l 
72 

71 

74 

75 

76 

77 

78 

79 

80 
81 
82 
81 

84 

85 

86 

87 

88 

89 

90 
9| 
92 

91 

94 

95 

96 

97 

98 

99 
100 
I0| 
i 02 
101 

104 

105 
f 06 

107 

108 
109 
I 10 
I I I 
112 
111 
I 14 


IF (IFLG.EQ. 2) GO TO 4 
■ C FIRST PASS 

WPTO'f ( 1 1 ) = WTTOT(II) ♦ WGGTP(II) ♦ WGGHEX(ll) 

WTOTP ( I | ) = WPTOT(II) 

GO TO 6 

C SECOND PASS 

4 WPTOT(II) = WPTOT(II) ♦ WGGTP(II) ♦ WTHXPG(II) ♦ MGGPPG(I|»lj 
I ♦ WGR(1|,I) ♦ WLR(II) ♦ WGRACCUI) 

6 CONTINUE 
C 

IF (DIAG(2,6HT5IZEI ) I WRITE (!OT,6000) WPT0T,WTT0T,W6GTP,W66HEX 
C 

C ***** COMPUTE THE VOLUME AND HEAT RATE FOR EACH TANK FOR 

c ***** each GAS WITHIN THE INPUT TANK CONFIGURATION. 

c 

c 

DO TO 11=1,2 

CALL FDMSTY ( 1 1 . S ITEMP ( 1 1 . I j tSIPRES ( II , I) . R ) 

C HAS AN INITIAL LOAD BEEN INPUT 

IF (PLOLOO < 1 1 ) ) 20*20,10 
C INITIAL LOAD INPUT — USE IT 

10 IF ( IFLG .EQ. 2) GO TO 20 
WTFLUD = FLOLODdl ) 

GO TO 10 

C PROPELLANT load calculated 

20 WTFLUD = WPTOT ( I I ) 

C CALCULATE VOLUME OF FLUID 

10 SVLFLD(II) = WTFLUD t (R*N0P(IIH|) 

c 

C CALCULATE TANK WEIGHT AND AREA 

CALL TNKWTA ( I , SVLFLD , SULGPC, SMDIAM, SPGTEM, S0PRES,SHTYPE»SV01, 

I TWT , TSA,TCYHT I 

c 

DO 60 11=1,2 

IF (IFLG ,EQ. 2) GO TO 40 
C FIRST PASS 

SHRATE (11,1) = TSA(II,I)*SHFLUX(IM|) / 1600^ 

GO TO 50 

C SECOND PASS 

40 1DXRI = SITYPEf 11,1) 

TIWT( Il,|) = NOF* < 11,1)* TSA(II,l)*RHOI(IDXRI)*SITHIK(II,l) / 12. 
50 TWT (11,1) = NOP ( I|,| >*TWT (11,1) 

60 CONTINUE 

c 

C OUTPUT THE TANK SIZING DATA 

C 

CALL OTPTSZ (IFLG) 

C 

IF (IFLG .EQ, I) RETURN 
DO 100 11=1,2 
IOX = INOXTK (III 
WI(IDX) = TIWT(Ilfl) 

100 WEIGHT! IDX) = TWT(IIH) 
return 
c 

6000 FORMAT ( (+1 |4X,6E|5.6/( I5X6EI5.6)) 
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TSJzEI 


It6 


END 
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**»***<*» FUNCT10N TSTART 


| FUNCTION TSTART(N) 

2 C 

3 DIMENSION T( 17) 

4 C 

3 DATA (T(I)»I=I* |T)/162.3 

6 ( 231.4 

7 2 330. 1 

8 C 

9 TSTART s “TIN) 

10 RETURN 

11 END 


, 36. 3 »IV$.04* 36.3 *134, *20l, * 
,201. ,231,4 ,323. ,133.04,432. , 
,618.2 *466,8 *632.1 * 7.668/ 
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SUBROUTINE TVP 


1 


•SUBROUTINE 'TVP(P.T) 

2 


COMMON /CTEVP/GT 1 8 ) /CRPR/CRI 11 

1 


COMMON /SCRH/ XI40) 

, 4 

C 


S 

C t • • • 

ROUTINE TO SOLVE VAPOR PRESSURE E8UATI0N ITERATIVELY FOR 

6 

Cl t • i 

TEMPERATURE BY NEWTON'S METHOD 

r 

c 


8 


TC=CR(1) 

9 

c 


10 

c • « • • 

USE TEMP EXPLICIT EQN FOR FIRST APPROX 

II 

c 


1 1:2 


P2sP*P 

n 


P1=P2*P 

14 


P4ePT*P 

IS 


PS=P4«P 

16 


P6cPS*P 

. rr 


X(U s ALOG(P) 

18 


X (2 ) e 1.0 

; >9 


xn>=p 

;2o 


X(4)=p2 

21 


X<S)=P1 

22 


XISlcPl 

21 


X<6)=P4 

t 24 


X(7>=PS 

2S 


X(8I=P6 

26 


T -a 0.0 

27 


00 1 1=1.8 

28 

1 

T=T>X(I)*GT(II 

129 


T = l.o/T 

10 

c 


11 

•C# • • • 

T JS NOW FIRST ESTOF T 

12 

c 


11 


ITRMAX=2S 

14 


EPS = I.OE-7 

is 


00 2 iter=i,itrmax 

16 


pp=vpn<t) 

iir 


CALL 0PDTVP(T.P*DP0T1 

18 


DELTA=(P-PP)/0PDT 

19 


T=T.DELTA 

40 


IF (ARSIDELTA/TJ.LTi'EPS) RETURN 

4 1 

2 

CONTINUE 

42 


WRITE (6.100 j P.'T .OELTA 

41 

100 

FORMAT ( ' *** TVP DID NOT CONVERGE'./. 

44 


. ' P b'.GIS.T. 

4*5 


. «T a'.GIS.T, 

46 


. ' DEL s' .GIS.7) 

47 


RETURN 

48 


END 


I 
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••«•*«** SUBR0UTINE TVP8 


| ' .SUBROUTINE TVP0(PBfT8) 

P = PB * 6.89y7S72E+1/l,0[12SE*S 
CALL TVP(P,T) 

TB e T * I ,8 
RETURN 
END 



SUBR0UTINE VARNAM 


2 


SUBROUTINE VARNAM 

1 

C 



<4 


INCLUDE 

:CACCUM 

5 


INCLUDE 

CAPU 

6 


INCLUDE 

CCNFIG 

7 


INCLUDE 

CCNTRL 

8 


INCLUDE 

CDCYCL 

9 


INCLUDE 

:CENG 

10 


INCLUDE 

CHEX . 

1 1 


INCLUDE 

CSYSWT 

12 


INCLUDE 

.CHSORC 

17 


INCLUDE 

CIOUNT 

14 


INCLUDE 

CKEYS 

15 


INCLUDE 

:cmatrl 

16 


INCLUDE 

CMOTOR 

IT 


INCLUDE 

CNAME5 

18 


INCLUDE 

CONST 

19 


INCLUDE 

CPAGE 

20 


INCLUDE 

CPUMP 

21 


INCLUDE 

CTAB 

22 


INCLUDE 

CTABA 

27 


include 

ctank 

24 


include 

CTURBN 

25 


include 

DUMMY 

26 


INCLUDE 

SPUMP 

27 


INCLUDE 

TANKHT 

28 

C 



29 


RETURN 


70 

c 



71 


END 



I 


I 
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SUBR0UTINE VENT 


DATE 04177 


w 

I 

w 

oo 


1 

2 
1 
4 
>5 
6 

7 

8 
9 

10 
I I 
12 
n 

14 

15 

16 

17 

18 

19 

20 
21 
22 
27 

24 

25 

26 

27 

28 
29 

70 

71 

72 
77 
74 
IS 

76 

77 

78 

79 

40 

41 

42 
47 

44 

45 

46 

47 

48 

49 

50 

51 

52 
S7 
S4 

ss 

S6 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


9S 

100 


MO 

c 

c 

c 

120 


c 


c 


SUBROUTINE VeNT(a t MH»MPV,ML,T,PV,PI f V,IG,PPVF.RHOP) 

LOGICAL JP.DIAG 

REAL MH.MPV.ML. MU.MT. MHF.MPVF.MTOT 
INCLUDE TA0LOK 

THIS SUBROUTINE COMPUTES .'TOTAL VENT MASS DURING COAST 
AS WELL AS REVISED VALUES OF LI8UID AND ULLAGE MASSES 
AND TEMPERATURE FOR A MIXED FLUID SYSTEM 

*•* DEFINITION OF SYMBOLS *** 

Q TOTAL AMOUNT OF HEAT ADDED TO TANK (BTU) 

MH MASS OF HELIUM IN ULLAGE (L8M) 

MPV MASS OF PROPELLANT VAPOR IN ULLAGE (LBM) 

ML Mass OF LIQUID IM tank (LBM) 

T TEMPERATURE OF FLUID (LIQUID ♦ VAPOR) IN TANK (R) 

PV VENT PRESSURE (PSIA) 

PI INITIAL PRESSURE (PSIA) 

V TOTAL TANK VOLUME (CU FT) 

ig propellant flag (I=oxygen. 2=hyorogen) 

***** diag switch is placed here ****** 

IF(0IAG(0»6HVENT )) WRITE (6*6000) <J,MH,MPv*ML.T,Pv,Pt »V. IG,PPvF 

•** INITIALIZE PRESSURE AND VENT MASS INCREMENTS *♦* 

Uh'I = 0, 

UHF=0, 

DPMs|, 

DVTEST=| .OE-IO 

DEP=PI-PV 

DP=OEP/I0, 

IF(DP.GT.DPM) GO TO 91 
DP=AMIN| (DEP* DPM ) 

GO TO (100,1(0) t IG 

CMWR= 7 .r96 

GCc4B.PS 

GO TO 120 

CMWR=O.S076S 

GC=T66. 

ENTER LOOP ON PRESSURE INCREMENT *«* 

pO 70 1=1.100 
L00P=0 

DVHAX=0,99*(MPV*MH) 

dmvmax=ovmax 
DMVMINsq, 000000001 
*** CHECK MH *** 

IF(MH,LE.O.) go TO | 

PH=RI-PPVF 


CALC. RHo OF GAS 
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VENT 


■58 


CALL RHOLIQ(TtlOfRL) 

59 


VU=V-Mt_/RL 

60 


MHF = RHOfi*Vi; 

61 


DIF=ABS(NHF-MH) 

62 


IFIDIF.GT. 0,001 ) MHsMHF 

61 

1 

P=PI-DP 

6U 


MUsMPV+MH 

65 


PQ=0.5*(P*PI) 

66 ' 


(1T=MI)+ML 

67 

c 


68 

c 

*»* COMPUTE ENTHALPY OF VENT VAPOR •***• 

69 

c 


70 


PG=PPVF*PB/PI 

71 


IFfMH.LE.O.) GO TO 1 

72 


CALL FINTAB (NTBID( 15 ) ) 

71 


XTAB ( | )=T 

74 


XTAB(21=PH ' 

75 


HHI=MIPE(2,XTAB) 

76 


PH=(PI-PPVF)*(PB/PI) 

77’ 


XTAB(2) = PH 

78 


HHV=MIPE(2,XTAB) 

79 

c 

CALC. RHO OF GAS 

80 


1 CALL GSDNST (IG.T.PGtRG) 

81 


CALL FfNTAB (NT8 !D( 16 I AlG) 

82 


XTAB{|)=RG 

81 


XTAB(2)=P0 

84 


HGIslIlPE (2t XTAB ) 

85 


HV=(MPV/tlU)*HGlA(MH/MU)*HHV 

86 

c 


87 

c 

•** COMPUTE NEW INTERNAL ENERGY FOR ASSUMED VENT HASS INCREMENT **• 

88 

c 


89 


KTAB =: 0 

90 


IF (IG ,EQ. 1 .AND. RHOP ,LT. 40.) KTAB s 2 

9| 


CALL FINTAB (NTBID(17)*IG+KTA8) 

92 


XTAB( 1 )=<ML+MPV(/V 

91 


XTAB(2)=PPVF 

94 


UI=MIPE(2,XTABj*(ML*MPV) 

95 

c 

CALC. RHO OF GAS 

96 


CALL GSZONS (IG.T,PPVF»RHOGfZPV) 

97 


CALL ZFIND(T»Ptf»l7»ZH) 

98 


DENS 1 , ♦ (MH/I1PV ) *CMWR* ( ZH/ZPV ) 

99 


PPVFsP/DEN 

100 


MPVF c RHOG*VU 

101 


DMVs (MH+MPV j *( 1 ,-MPVF/MPV) 

102 


DMV8=0.5*(DMVMAX+0MVMIN) 

101 


IF(OhV.GE.DkVmAX) DhVbDmVB 

104 


IF(OMV.LE.DMVMIN) DMVsDMVB 

105 


UHISO. 

106 


IF(MH.LE.O.> go TO 5 

107 


PH=PI*(t,-|,/DEN) 

108 


UMI=MH*HHI-0.I85*PK*VU 

109 

5 

lllBUItllHX 

1 10 

10 

UFASS=UI4Q-DMV*HV 

III 


,loop=loob+i 

112 

c 


111 

C' 

R** COMPUTE PARTIAL PRESSURE OF PROPELLANT yAPOR ***• 

114 

c 


iis 


MHF=MH*(I.-DMV/MU) 


i 
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VENT ********* 


! 6 


MPVF=HPV*( 1 ,-DMV/MU) 

17 

C 


IS 

C 

**• COMPUTE INTERNAL ENERGY FOR THE NEW SATURATION CONDITIONS *** 

IS 

c 


20 


KTA8 = 0 

21 


IF (10 .EQ. 1 .AND. RHOP ,LT. 40.) KTAB « 2 

22 


CALL FINTAB (NT8I0(78)+I6+KTAB) 

27 


XTA3 ( 1 > = <ML+f1PVF)/V 

24 


XTAB(2)=PPVF 

2 *5 


UFrM IPE (2. XTAD j * (ML+MPVF j 

26 


TF=TSAT(PPVF*I6) 

27 


IP (MHF.LE.O, ) GO TO 15 

28 


PHF=P-PPVf 

29 


RHsMHF/VU 

70 


CALL ZFIUDfTF.PHF.tT.ZH) 

71 


PHFSFINDR) I7)*PH*ZH«TF/I44. 

72 


CALL FIHTAB (NT81D(79)i 

77 


XT AP ( 1 )=TF 

74 


XTAB(2)=PHF 

75 


HHFstllPE ( 2»XTAB ) 

76 


UHFs|tHF*HHF-0. 1859(P»PPVF)*VU 

77 


IF (UHF.LT.O. ) LOOPsHO 

78 

15 

UFSUF + UHF 

79 

c 

*«* CHECKOUT WRITE STATEMENTS ARE PLACED HERE *** 

40 

c 


4 1 

c 

*** COMPARE uf and ufass *** 

42 

c 


47 


DIFsDFASS-UF 

44 


D IFFzABS ( D IF ) 

4*5 


IF(0IFF,LE.I.) GO TO 60 

46 

c 


47 

c 

*** REVISE VENT MASS INCREMENT *** 

48 

c 


49 


DMVCsDVMAX-DMV 

50 


IF ( OMVC.OT.DVTEST) GO TO 20 

51 


DP=0.5*DP 

52 


DP=0.5*0VMAX 

57 


GO TO 70 

54 

20 

IF ( 0 IF ) 70»60»40 

55 

70 

DMVMAX=DMV 

56 


IF (DMVMAX.GT.OVTEST) GO TO 50 

57 


WRI7EI6, 1000) I .P. UFASS. IIF.DMV 

58 

1000 

FORMAT(7IHOS/R VEnT AmoMALY AT ITERATION .I2*I7H DATA ToLLoWl / 1 X, 

59 


1 4G ) 7 , 8 ) 

60 

40 

DMVMIN-DMV 

61 

50 

DM=0MV-DIP*< (DMV-DMVOLD)/ (DIF-OIFOID) ) 

62 


PMVOLO=DMV 

67 


DIFOLDsDIF 

64 


OMVspli 

65 


IF(OMV.LE.OMVMAX.AND.DMV.GT.OMVMTN) GO TO 51 

66 

57 

DMVS0,5*<DMVMAX+0MVMIN) 

67 

51 

IF(L00P.LT.20) GO TO 55 

68 

C 

■*** CHECKOUT WRITE STATEMENTS ARE PLACED HERE *** 

69 


GO TO 60 

70 

55 

60 TO 10 

71 

C 


72 

C 

*** VENT NASS ITERATION HAS CONVERGED. RECOMPUTE MASSES AND 

77 

C 

CHECK FOR PRESSURE CONVERGENCE. *** 
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VENT 


174 

60 

prep 

ITS 


T=TF 

176 


MHsMHF 

177 


CALL RH0LIQ(T*i6*RL) 

178 


CALL ZFIMOlTtPPVF, IGfZPVj 

179 


RG=I44.*PPVF/(ZPV*GC*T) 

180 


RFP= (ML+MPVF) /y 

181 


QUAL=(RL/RFP-I , )/<RL/RS-| . ) 

182 


IF (QUAL.GT , 0. ) SO TO 65 

181 

C 

*** CHECKOUT WRITE STATEMENTS ARE PLACED HERE ***' 

184 


OUALsO.OI 

I as 


GO TO 66 

186 

65 

IF ( OUAL.LT . 1 4 ) SO TO 66 

187 

C 

'*** CHECKOUT WRITE STATEMENTS ARE PLACED HERE *** 

188 


GUALr| , 

189 

66 

MTOT=ML*MPVF 

190 


MPV:QUAL*MTOT 

1 9 1 


ML=MTOT-MPV 

192 

C 


1 91 


IF(DIAG(2,6I!VENT-U i WRITE (6*6010) MH,MPV*ML*T*UF,UFASS,PPVP*P 

194 

C 


195 


OIF=P-PV 

196 


ADIF=OIF-.OOI 

i 97 


IE(#DIF.LE.O.> GO TO 80 

198 


IF(DIF.GT.OP) GO TO TO 

199 


OPeOjF 

200 

C 


201 

c 

***** DIAS SWITCH IS PLACED HERE ****** 

202 

c 


201 

70 

CONTINUE 

204 

c 


205 

c 

***■ CHECKOUT WRITE STATEMENTS ARE PLACED HERE *** 

206 

c 


207 

80 

CONTINUE 

208 

c 


209 

c 

***** olAG SWITCH IS PLACED HERE ****** 

210 

c 


211 


JP = DlAG( 1 * 6HVENT ) 

212 

c 


211 


RETURN 

214 

c 


215 

6000 

FORMAT ( i+i * |4X*T21* »HEAT.JN( ,T1T* 'HE-ULU *T50, ' PyAP-IN-ULL* ,T65, 

216 


1 'LIO-IN-TANK' ,T82, tTFLUIO ' /ISX,5E t 5. B/T20* ' VENT-PRES' *T15* 

217 


2 'INIT-PRES',Ts2 f 'TOT-VOL' *T6T* ' ISAS ',TBO* 'PRESSURE* /I RX,1EI5.8. 

218 


1 6X.I1*6X*EI5.8) 

219 

6010 

FORMAT< '•*' , l4X,T21,i-MH-l,T17*<-MRV-',T52*<-ML-'*T67*'-TFLUID-» . 

220 


1 /I5X*4EI5.8/T21* ,-UF-i ,717* i-UFASS-' *T52* »-PPV«i ,T6T* P— ' /15X* 

22 1 


2 MEIR.R) 

222 

6020 

FORMAT ( 19H0S/R VENT QUALITY ANOMALY AT ITERATION ,J2/ 

221 


1 T21, 'QUAL«*T1T,m;f*,TS2*'ULF',T6T, 'UFSI/I5X.4GI1.8) 

224 

6010 

FORMAT ( 'O', ImX,T 21* 'L00Pi,Tl7, 'UFASS',T52* ' UF 1 *T6T, 'MHF ' t 

225 


1 l5X*It5,1C)5.8/T2l*'MPVF'*T1T*'TF' tT52*»PPVF'*T67*'PHF», 

:226 


2 T80*'OMV'*/I5X*5SI5,8) 

:227' 

c 


228 


END 
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******** SUBR0UT1NE VGVS 


w 

1 

co 

CO 

CO 


1 

2 

C 

c 


* ROUTINE NAME - MACH NUMBER C0PUTBT10N *• 

1 

c 


■* ROUTINE LANG • FORTRAN V UNIVAC 1108 2XEC 2* 

4 

c 


■'* PROGRAMMER - R, BOLL’NGER 1967 102 26977 '*' 

S 

c 


■■* DATE CODED - 7/17/70 

6 

c 



'7 

c 



8 



SUBROUTINE VGVS ( IDX, RHO, IGBS ) 

9 

c 



to 

c 


***** EXPLANATION OF THE CALLING SEQUENCE 

1 1 

c 



12 

c 


* IDX - INDEX of THE CONFIGURATION TABLE 

13 

c 


•* 

m . 

c 


* PHO - OENSITY OF THE GAS 

IS 

c 


•* 

16 

c 


***** IGAS - GAS NUMBER (SEE S.R. FINOR) 

17 

c 



18 



INCLUDE CCNFIG 

19 



INCLUDE CONST 

20 

c 



21 



DATA IBLNK,IASTI.IAST6/' '»'* I « •*««*** * / 

22 

c 



21 

c 


***** COMPUTE THE VELOCITY OF THE GAS 

24 

c 



2*5 



MFLG(IDX) = IBLNK 

26 



VG S S76, •* WOOTN ( IDX ) / ( PI * OIAM(IDX)**2 * RHO) 

27 

c 



28 

c 


***** COMPUTE THE VELOCITY OF SOUND IN GAS, 

29 

c 



70 



CALL CSUBP (TEMP < IDX ) »RRES( IDX), IGAS, CPGAS) 

7! 



CVGAS = CSUDV(TEMP(IDX),PRES(IDX),IGAS) 

12 

c 



31 



VS = SORT(GRAVTy*CPGAS*FINDR( IGAS)*TEMP( IDX)/CVGAS) 

74 

c 



IS 

c 


***** COMPUTE MACH NUMBER 

76 

c 



77 



MACH (IDX) = VG/VS 

78 

c 



79 

c 


***** chech mach number, flag mach greater than .7 with 

40 

c 


***** ASTRIK, FLAG MACH NUMBER GREATER THAN 1,0 WITH 6 1 

Hi 

c 



42 



IF(MACH(IDX) - 0,7) 40,40, 10 

41 


to 

IF(MACHUDX) - 1,0) 20,70,70 

44 


20 

MFLG(IDX) = 1 AST 1 

4S 



GO TO 40 

46 


70 

MFLG(IDX) •= IAST6 

47' 


40 

RETURN 

48 



END 
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FUNCTI0N VPN 


¥ 

os 


1 

2 

3 

V 

3 

6 

■ 7 
8 

i 9 
, 10 

I I 

12 

II 

: m 

is 

16 

17 

18 

19 

20 

21 

22 

23 

; 24 

25 

26 
' 27 
! 28 

29 

30 


C 

c • • • • 
c 


I 


FUNCTION VPN IT) 

COMMON/CVPN/G ( 1 1 ) /CRPR/CRI3) 
COMMON /SCRH/ X<40) 

CALCULATE THE VAPOR PRESSURE 

TCeCPH) 

A=0( I | ) 

T2=T*T 

T3=T*T2 

T4=T»T3 

TS=T*T4 

T6=T<*TS 

X( I ) = I ,0/T 

X(2 ) s 1,0 

X(3)=T 

X(M)=T2 

X(S)=T3 

XI6IST4 

X(7)=TS 

X(8>=T6 

X 1 9 ) 2 ALOG(T) 

X< IO)rfTC-T)**A 
P = 0.0 

00 I l =| f |0 
P=P+X(I)*0(I) 

P = EXP(P) 

VPN=P 

RETURN 

END 
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****** 


FUNCTI0N VPNB 


FUNCTION VPNB(TB) 

T = TB/1,8 
PsVPM(T) 

VPNB = P ■* I «0n2BE*B/6»89V7B72E*'? 

RETURN 

END 


W 

I 

05 

to 
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5UBR0UTINE VPR0P 


T 

03 


1 


SUBROUTINE VPROP(T f P,D»K f H.S.U,Z) 

2 


COMMON /RFPR/ RF(IO) 

1 

C 


4 

c • • * • 

ROUTINE TO CALCULATE ‘THE PROPERTIES OF 

S 

c 


6 

c 

K si INPUT IS T 0 

7 

c 

K 52 INPUT IS T P 

e 

• c 

K si INPUT IS T, P» ♦ 0 

9 

c 


10 


IF ( K ,E0. 1 ) CALL PFN0(T,0,pj 

ii 


IF(K ,£Q.2 JCALL DFMDCTt P*Dt Zl 1 0 ) 

: 12 


HOTOeRF ( 1 ) 

n 


S0T0eRF(2) 

14 


RFSTsRFH) 

IS 


RFHTeRF (4 ) 

ib 


R sRF(S) 

it 


AK , sRF (6) 

18 


FID=FINGI (Tf 0 ) 

19 


F 10 = FINGI (T,0.0> 

20 


F203FING2(T,D) 

21 


F 20 ;s FING2(T,0.0) 

22 


S0sSOTn+CPSHT)-CPSl(RFSn 



HOsHoTO+CPHI ( T ) -CPHI 1RFHT) 

124 


S - SO - (R • ALOG ( D#R*T ) -F | 0 ♦ FIO) 

2S 


H=HO+(T*(FID-FIO)»F20-F20*P/0-R*T)*AK 

26 


U=H-(P/D>*AK 

27 


Z '= P/(D»R«T) 

28 


RETURN 

i 29 


END 
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O'Oa^o Jtrvitnj 


SU8R0UT/NE VPR0PB 


I 


I I 
12 

II 

m 

is 


SUBROUTINE VPROPB(TBtpB,0BfK*HB,SB,UB*ZBj 
COMMON /RFPR/RF (1 0 > 

WT=RP<7) 

T = TB/1.6 

P = PB ■* 6.89N7S72£+1/t.0M2SE»S 

D = OB * 4S8.S92B7E-V(WT * 2. 81 1 6B4TE-2) 

CALL VPROP (TiP*DtK»H»StU|Z) 

PB sP* 1 ,0n2SE+S/6.8947ST2E*S 

OB = 0 * WT * 2.89I68M7E-2/BS1.S9J17E-9 

HB = H * SS9.S9237/{|.0S49S07E+B * WT) 

MB s U * 4S1.S9217/I I.OS41S01EO • WT) 

SB = S * 4S1.S92l7/( I .0S41S01E*! * 1.8 * WT) 

ZB s Z 

RETURN 

END 


W 

I 

03 

to 

05 
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SUBROUTINE VSND 


SUBROUTINE VSNDtT.P. D.K.W) 


W 

I 

co 

M 

-3 


2 


COMMON /RFPR/ RF{|0) 

1 

C 


4 

C • • • • 

ROUTINE to calculate ' 

S 

c 


6 

c 

K = 1 INPUT IS T ♦ P 

7 

. c 

K B2 INPUT IS T ♦ 0 

8 

c 

K =T INPUT IS T 

9 

c 

K =4 INPUT IS T 

10 

.c 


1 1 


AKeRF(6) 

12 


AN=RF(7) 


II 

m 

is 

16 

IT 

IB 

19 

20 
21 
22 
21 

24 

25 

26 

27 

28 
29 
10 

11 

12 
11 
14 


RETURNS SONIC VELOCITY. W ♦ D 
RETURNS SONIC VELOCITY, W 
RETURNS W, D, ♦ P FOR SATURATED VAPOR 
RETURNS W, D, ♦ P FOR SATURATED LIOUID 


IF<<K.GT.O),OR.<K.LT.S))GO TO I 
HRITE(6,100)K 

100 FORMAT ( ' *** ERROR IN CALL VSND ***»,/, 

, ' K MUST EQUAL 1,2.1. OR 41 ,/, 

. ' K s « • Z 1 0 } 

RETURN 

1 IF(K,EQ,2)G0 TO 1 
IF(K,GT,2)G0 TO 2 

CALL DFNDfT ,P»D» Z I .0 j 
GO TO 1 

2 p=VPN(T) 

IF (K.EQ, 1JCALL DFND CT.P.D, Zl ,2) 

IE'( K , E(l. 4 I CALL DFNDCT.P.D.ZI.I ) 

1 CALL CPVTDfT,0,CP,CVI 

H = (CP/CV) * DPDD(T.D) * (AK * 1000. O/AM) 
IE(W.LE.O.O) GO TO 4 
H = SORT ( W ) 

RETURN 

4 CONTINUE 
We 0.0 
RETURN 
END 
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0'0aa-4o*nxrvj*r\j 


SUBR0UTINE VSNDB 


' | SUBROUTINE VSNDB<TB,PB»0B*K t W8) 

COMMON /RFPR/ PF( 10) 

WT=RF(7) 

T = TB/1.8 

P ■= PB ■* 6.89M7 , >72EO/j.0n2SE*'; 

D e OB * tt < j?.S92?7E-V(WT * 2.8? (6BM7E-2) 

CALL VSND(T,P,D.K»W) 

NO c H/1.0MSE-I 

RETURN 
END 


w 

I 

co 

to 

oo 
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I 


SUBR0UTINE WFIND 


W 

to 

N> 

<X> 


i| 

1 r 

i 5 

I 10 

ill 

IV 
m 
i is 

i 16 

i IT 

I 18 

19 
I 20 
I 21 
I 22 

I 23 

I 24 

2S 

,26 


,27 
, 28 
29 
1 30 
: 3i 

32 

33 
1 39 

35 

36 
I 37 
! 38 

39 
1 90 

I 4 < 

1 9a 

i'93 


SUBROUTINE WFIND fT*W) 

DIMENSION A < 20 j 

DATA A/0.2S08962IE4.7* 0.|3S09987E*3» O.S278S6T6E*2t 0.2T6768SSE*2. 

1 0.39I0S321E+2* 0. 6SS6 1 323E*2 » 0.80803S8TE»2, 0.70S292I2E+2. 

2 0.997897S9E*2» 0.21 2S2S6SE*2» 0.76797636E+I , 0.2 1 36899SE* I . 

3 0.9S98933SE+0* 0.76361 967E- I t 0.96932862E-2. 0.923069ISE-3. 

9 0.638 1 I6S9E«9* 0. 3022®323E-S i 0. B77SS I 39E-7* 0. 1 1 77026 1 E-fi/ 

C 

C.... ROUTINE TO CALCULATE K ( IPTS-6B ( T68 )) GIVEN TEMP 
C 

C.... CALCULATION DOME BY NEWTON'S METHOD 
C 

ITERMX=I00 
EPS = I.OE-4 
C 

C.... CALC FIRST ESTIMATE 
C 

H s 0.90T I 36S9E-2 * T - 0. I I209346E+0 
00 I ITER=I,JTERMX 
OLW c ALOC(W) 

C 

C.... CALC T GIVEN EST OF W 
C , 

TT = 0.0 
DO 2 I=l»20 

2 TT=TT+A(I)»DLW**I 
TT t TT ♦ 273.IS 

C 

C.... CALC DT/OW 

c 

DTDW = 0,0 
DO 3 Id, 20 
AI = I 

3 DTDWsOTDW+AI*A ( I 7*DLW**( I«l ) /W 

C 

DELTAS <T-TT)/DTOW 
W=W*DELTA 

IF (ABS( DELTA ) .LT.EPS) RETURN 
I continue 

WRITE(6, I 00 j DELTA 

100 FORMAT! 1 *** WFIND FAILED TO CONVERGE - DELTA s'tGHO.IO) 

RETURN 

END 


1 


1 
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******** SU8R0UTINE WTACC 


w 

I 

oo 

CO 

o 


I 

z 

r 

v 

5 

6 
T 
8 
9 

10 

I I 
12 

II 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


c 


c 

c 




* ROUTINE NAME - ACCUMULATOR WEIGHTS * 

'* DETERMINATION routine * 

■* ROUTINE LANG • fortran V UNIVAC HOB EXEC 2* 

* PROGRAMMER - R. BOLLINGER 1943 102.26933* 

•* DATE COOED - 5/20/70 * 

* REVISED - JULY 1972 * 

•* PROGRAMMER , - J, MCKAY DI943 201 45178 * 


subroutine WTACC 

INCLUDE CACCUM 
INCLUDE CCNFIG 
INCLUDE CMATRL 

DIMENSION ADUMUY(2),ZER0(2) 

DATA ZERO / 0.,0./ 

***** COMPUTE ACCUMULATOR WEIGHT AND SURFACE AREA. 

CALL TNKWTA (2, A VOL, ZERO, ADI AM, ATEMP, APRES, AMTYPE, ADUMMY, ACWT, AA , 
I ACYHT) 

DO 10 11=1,2 
IAI s AITYPE ( 1 1 ) 

CALC, ACCUMULATOR INSULATION WEIGHT 
ACIWT(II) = NAOP(II)*AA(III*RHOI(IAJ)*AITHIK(II) / 12. 

ACWT (II ) :s UAOP(m*ACWT(II ) 

I OX S INDXAC ( I I ) 

WEIGHT ( IDX ) = ACWT (II) 

WI(IOX) = ACIWT(II) 

10 CONTINUE 

PRINT ACCUMULATOR DATA 

CALL OTPACC 

RETURN 

END 
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FUNCTI0N YLGINT 


‘ I FUNCTION 'YLGINT<X,V,N, XBAR. NPTS. *> YLGINT 

2 c — ............. .......... VLG I NT 

1 C LAGRANGE INTERPOLATION YLGINT 

4 c— YLGINT 

•S C ARGUMENT DEFINITION YLGINT 

6 C X — ARRAY OF N INDEPENOENT VARIABLE VALUES! INPUT) YLGINT 

T C Y ... ARRAY OF N DEPENDENT VARIABLE VALUES (INPUT) YLGINT 

8 C N — NUMBER OF DATA POINTS (INPUT) YLGINT 

9 C XBAR — INDEPENDENT VARIABLE VALUE for WHICH YLGINT IS THE YL 6IN T 

1 10 C INTERPOLANT (INPUT) YLGINT 

11 C NPTS ■— NUMBER of data POINTS to 3E USED IN . INTERPOLATION! INPUTYLGINT 

12 C * ERROR EXIT IF N IS LESS THAN 2, OR IF OVERFLOW IS YLGINT 

II C DETECTED. YLGINT 

14 ..... ......... ............. .YLGINT' 

15 C REFERENCE YLGINT 

16 C x. s. KUNZ, NUMERICAL ANALYSIS, MCGRAW-HILL BOOK COMPANY, I9ST. YLGINT 

IT' C— ..... .....................................YLGINT 

. 18 DIMENSION X(H)tY(N) YLGINT 

19 c— — — ......... ............. .......YLGINT 

20 C CHECK ARGUMENTS N AND NPTS YLGINT 

I 2| C IF NPTS IS OUT OF RANGE, USE ALL POINTS YLGINT 

22 c ......—.. ................... ..........................YLGINT 

21 IF (N.LT.2 ) RETURN 6 YLGINT 

l_, 24 IF(NPtS.GT. I .AND. NPTS. LT^N) GO TO 2 YLGINT 

Y 2S NPTSzN YLGINT 

w 1 26 I JL=I YLGINT 

W 27 JHsNPTS YLGINT 

^ 28 GO TO 9 YLGINT 

, 29 C- — .......... ............... YLGINT 

10 C DETERMINE POSITION OF XBAR WITHIN X ARRAY YLGINT 

11 C UPON EXIT FROM LOOP 1, X ( JH- 1 ) J.T XBAR LE X(JH) YlGINT 

1 2 .......... ....................YLGINT 

11 2 DO 1 JH=|,N YLGINT 

14 IF(XBAR-X(JH)) S,I2,1 YLGINT 

15 1 CONTINUE YLGINT 

lb 4 JH=n 

17 ./L=N-nPTStI 

18 GO TO 9 YLGINT 

19 C— ............. .............. YLG I NT 

40 C DETERMINE WHICH POINTS USED IN INTERPOLATION YLGINT 

hi c t h e points Chosen are t h e ones w h ose abscissas are closest to xbarylgint 

42 c JL IS LOWEST SUBSCRIPT OF POINTS USED, JH IS HIGHEST SUBSCRIPT YLGINT 

41 C ........ .............................YLGINT 

44 S JL=JH YLGINT 

45 D2=X(JH)-XBAR YLGINT 

46 6 JL=JL-I YLGINT 

4T IF(JL.LE.I) GO TO I YLGINT 

48 IF(NPTS ,E0. 2) GO TO 99 

49 OI=XRAR-X(JL) YLGINT 

50 7 IF ( JH-JLY I ,EQ,NPTS) 00 TO 8 YLGINT 

S| IF(XBAR-X(JL-I).LT,D2) GO TO 6 YLGINT 

1 S2 JH=vJH*l YLGINT 

51 IF(JH.GE.N) GO TO 4 

54 D2=X(JH)-XBAR YLGINT 

55 GO TO 7 YLGINT 

56 8 INDCT=0 YLGINT 

57 IF(JL.GT,|.AND,XBAR-X(JL-I),LT.02) INDCTs-I 
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B-332 


YLGINT 


******** 


******** 


*>8 

59 

60 



IF( JH.LT.N.ANO.X{JH+U*X8AR.LT,Dn INDCTbI 

JLrJUTNOCT 

JHsJH+INOCT 

YLGINT 

YLGINT 






62 

C 


DETERMINE INTERPOLATING POLYNOMIAL VALttE 

YLGINT 

61 

C 


INNER LOOP COMPUTS PRODUCT 

YLGINT 

64 

C 


OUTER LOOP COMPUTES SUM 

YLGINT 

6*5 

A A 

c 

c~ 


ERROR RETURN FOR DETECTED OVERFLOW 

YLGINT 

67 


9 

1F(NRTS .EQ, 2) GO TO 99 


68 



YLGINT = 0. 


69 



DO 1! KaJLtJH 

YLGINT 

70 



PROO=| . 

YLGINT 

71 



PO 10 U=JL,JH 

YLGINT 

72 



IF(K.EQ.J)' CO TO 10 

YLGINT 

71 



PROOsPROD* {XBAR-Xt J) ) / ( X (K 1 -X ( J) ) 

YLGINT 

74 

c 


TEST FOR OVERFLOW 


71 



IF (PROD , GT. I.E+20) RETURN 6 


76 


10 

CONTINUE 

YLGINT 

77 



YLGINT=YLG1NT+Y(K)*PR0D 

YLGINT 

78 

c 


TEST FOR OVERFLOW 


79 



IF (YLGINT ,GT. I.E420) RETURN 6 


80 


1 1 

CONTINUE 

YLGINT 

81 



PETUPN 

. YLGINT 






81 

c 


XQAR EOUAL TO AN ELEMENT . OF THE X ARRAY 

YLGINT 

81 


12 

ylgint=y(jh) 

YLGINT 

86 



return 

YLGINT 

87 

c 




88 

c 


FOR LINEAR INTERPOLATION USE THIS SIMPLIFIED FORM, MODIFIED BY 


89 

c 


J. MCKAY 1-21-1972 


90 

c 




9! 


99 

YLGINT = (Y(JH)-Y(JLJ j*IXBAR-X(jL))/(X(JH)-XIJL» j+Y(JLj 


92 



RETURN 


91 



END 

YLGINT 
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AonAA 


FUNCTI0N YLNTRP 


ROUTINE TO INTERPOLATE ON L0G-L06 

coordinates, for tables WHICH HAVE 

BEEN INPUT LN(X) *LNCY) FORM (6-8-71) 

FUNCTION YLNTRP (NV,XVALi 
C NOT USED — DELETE 

YLNTRP s I.OETtO 
RETURN 
:END 


> 


CO 

co 


to 


LMSC- 


SUBR0UTINE ZFIND 




to 

CO 


I 

a 

3 

4 

5 

6 

7 

8 
9 

10 
I ! 
12 
13 

m 

1*5 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 
36 

27 

28 

29 

30 

31 
■32 

33 

34 

35 

36 

37 

38 

39 

40 
Ml 

42 

M3 

M4 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 


SUBROUTINE ZFIND <T , P, N, V ) 

DIMENSION G ( 7, 17) ,S ( 1 7) 

DIMENSION A ( 17*6) ,'TS ( 17) 

DATA <TS(K)»K=Wlfe) 

1 /f50. * 30.. I u 0.» 30. . 1 40. » 190. »220. . 190, » 

2 220. *300. ,140. .370. .475. .480. *450. .450./ 

DATA(C( l,I).I = l,|7) /277.8S, 5 9. 8, 29 9. I 3.59, 8,260. .343.2*387. .343.2 
I *387., 52 | .8,259. I 3» 730. ,776.4, 1094 . ,749.3, || 55. ,9.37/ 

DATA ( 0 ( 2 ,n, 1 = 1 , 171/743, 78, (87.7,822. 8, 187. 7.795., 673.1, 71 9. ,673. 
I I «7 | 9., 58 I., 822.8, 1652., (470., 1696., 771 ., | 470..33. 82/ 

DATA(G( 7 , 1) , I = | , |7)/48. ,766,8,40.67,766.8,42.01 ,96.35,28.62, 

I 96.35,28.62,55.81,40.67,90.77,16.78,77.0,11.90.33.50,786.3/ 

DATA S/5HLC2 • 5HLH2 ,5HLF2 .5HLH2 .5HFLOX .5HCH4 .5HOF2 , 

I 5HCH4 .5HOF2 ,5HR2H6 .5HLF2 ,5HNH3 .5HN204 .5HA-50 , 

.2 5HCIF-5,SHNHF-5,5HHc / 

DAT A ( A ( | ,J), J=l,6)/.2|42592Et , - . 7228 722E- I , . 3567987E-7 , 

I -. l895669E-5,.4827|6<)E-8,-.500279lE-| 1/ 

DATA(6( 2,jj ,J=I ,6)/-.4458459EI,.675C202,-,28670l6E»l» 

I .6260532E-3,-.670M223E. 5, .27634098-7/ 

DATA(A( 1 , J ) , J= I ,6)/. I920O203EI .-.4596045E- I , . 7505833E-3 , 

I -.55224532-5,. I 9002 1 8E-7,-.2526448E- 10/ 

DATA(A( 4,J),J=l,6)/-.445S459Et,.6750202,-,28630l6E-l, 

I . 62605 72E-3.-. 6704227E-5, .2763409E-7/ 

DATA ( A ( 5 , J) , J= | , 6 ) / , I 84766 1 2E I , - ,4 1 46008E- 1 , .6702877E-3, 

I -.4895455E-5,.l674002E-7,-.22l7407E-|0/ 

DAT A ( A ( 6 ,J),J=I ,6)/, I700580 3E»,-. I669025E-I,. I536I45E-3, 

I -.669 I577E-6. . I 3609 972E-8 . - . I 175781 I E- II / 

DATA ( A ( 7»J),J=I ,6)/. 1 52 I 9622E2 . - , 230 I 2466 , . 2200 1 02 1 E-2 , 

I -.861 19226E-5, . I6835339E-7,-. | 3264 | 6E-I0 / 

DATA (A ( 8.J) ,0=1 ,6) /. IT005803EI 1669025E-I ,. I536I45E-3, 

I -.•669l577E-6,.l3609972E-8»-.l 1 3578 1 IE-1 1/ 

DATA ( A ( 9,J),J=I ,6)/. I 52 I 9822E2 , - . 2 80 I 2466, . 2200 ! 02 1 E-2, 

I -.861 I9226E-5, . I6835379E-7,-, I 7264 | 6E-I0 / 

OATA(A(IO,J),v)=!,6)/-.8l4495O7E-l,.l50O4876E-l,-,9l954274E-4, 

I « 278 ( 3987E-6,-.42739698E-9 , ,25 1 705 1 2E-1 2/ 

DATA (A ( | | ,J),J=I ,6)/. I9209207EI.-.4596045E-I , .7505833E-7, 

I -.5522M57E-5,. I9o02I8E-7,-.2526448E-IO/ 

DATA ( A ( 1 2 , J ) , v)= 1 ,6)/. 792373 1 8EI.-. 7456529 IE- |,.l6306507E-3, 
l-.39452472E-6,.45572795E-9.-.2|979859E-l2/ 

DATA(A( I 3,J) ,J=I ,6)/.70l22706FI ,-.574 I 3097E- I , . 2 1 967497E-3, 

I -.421 9872 IE-6, .408649 88E-9,-. | 6069 | 6E- I 2/ 

OATA(A( | M ,J),J=| , 6 )/. 8640584 78 I ,-.72 176 I6IE- 1,. 2724271 E-7, 

I -.5 1 37489 E-6«. 4 844758 E. 9,-. I 8 108062E- 1 2 / 

DATA ( A ( I5,J) ,J=| ,6)/.54P5R879EI , - . 44806287E- I ,. I7789492E-3* 

I -.3508955SE-6. .34579726E-9,-. I 383201 6F-I2/ 

DATA (A( I 6, J) , J=l , 6 ) / , 4940T545E I » -. 79649956E- 1 , • I5955648E-3, 

I -.721 !5667E-6,.32356706E-9,-. | 7068 1 36E- 1 2/ 

C 

IFIP.GT.O.O.AND.T.GT.O.Oj GO TO 666 
WRITE (6,777) P,T 

777 FORMAT (SX, 'ENTERING ZFIND A PRESSURE DR A TEMPERATURE IS OUT OF RA 
INGE'/TS, 'PRESSURE '=< ,E I Si 8 , T30, ' TEMP .‘FUTURE =',EI5.S) 

CALL EXIT 
666 CONTINUE 
C 

IFfN.EO. 171 GO TO 56 
IF(t.Gt,650..0r.T.LT.25,) GO TO 35 
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ZFINO 


-****#•**■ 


I 


SB 


IF TT.GT.'TS (N>+l 00. ,0R ,T jLT.TS (N) ) 60 TO 56 

59 

c»*** 


60 


CALL PVAPOR<T f N,TRYP) 

6! 


TRV=TRYP-P 

63 


IF (ABS(TRY) ,LT,5, j GO TO 55 

61 

56 

CONTINUE 

64 



65 


VF=G<1fN)«T/(P*l44,) 

66 


IF(N.EQ.2,0R.N.EQ.4) GO TO 10 

: 67 


AS=.4278*G(1tN)*Gt1*N)/(G(2*H)*l44,>*6( l*N>**2.5 

,68 


BS=.0R67*G(1»M>*G( 1 *N)/(G(2*M)«I44. > 

69 


IN=0 

70 


N2=0 

7| 


E=. 00001 

•72 


V- VF 

71 

199 

Y=G(1,N)*T/(V-8S)-AS/(T**.5RV«(V+BSn-P*l44. 

74 


IFUBSm.LT.E) GO TO 200 

75 



76 


YP=-G(1,N) 

77 

I 

*T/((V-BS>*(V-BSn+AS*<2.*Y*BS)/(T**.5*V«V*(V*BS)*(V*BSM 

78 


IN=IN*( 

79 


N2=N2+| 

' 80 


IFUI2.EQ,25) E=2.*E 

81 


IF ( M2 .EQ , 25 ) H2=0 

82 


IF( IN.GT, 1000) GO TO 20 1 

81 


V=V-Y/YP 

84 


IFIV.GT.O.) GO TO 41 

85 


0LDV=V4Y/YP 

86 


OELTA=Y/YP 

87 


FACTORS, 05 

68 

44 

V=OLDV-FACTOR*0ELTA 

89 


FACT0R=FACT0R*.9 

90 


IF ( V,LT. 0 . ) GO TO 44 

’1 

41 

CONTINUE 

92 


GO TO 199 

91 

200 

CONTINUE 

94 


GO TO 50 

95 

201 

CONTINUE 

96 


WR I TE (6i 40 ) T*P»S(N) »V* VF 

' 97 

40 

FORMATOXf J4HREDLICH - KKONG FLUNKED J e t FH.S,2XtHHP e , 

98 

1 

Ft. 2. . . 

99 

2 

5H FOR * A5 * 2X»4HV s »EI0.5»2X.8HRETURNEO*EI0.5) 

100 


V=vf 

101 


GO TO 50 

102 

10 

TTiT+0,5 

10, 


V=PTDENS<P »TT) 

104 


V=l./V 

105 

50 

VSV/VF 

106 


RETURN 

,107 

15 

V=l. 

i 08 


RETURN 

109 

55 

CONTINUE 

1 10 


V=A(N, 1 >4A<N f 2)«T+AlN t lj*T«T9A<»(,4)*T*T«T9A(N,5)*T**49A<N,6y*T*9S 

ill 


RETURN 

I ia 


END 


0064 


0075 
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CP -4 O «j! -C M 


******** 

I 


FUNCTI0N ZGET 


FUNCTION ZGET(T.P.tlSAS) 

C ROUTINE CALLS STEWARTS COMBINED 02-N2 PROPERTIES PROGRAM 

CALL 0NPR0P(T»P.DX»ENX»SX»UX*ZX.IGAS) 

ZGET = ZX 

RETURN 

END 
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Appendix B 

THE CRYOGENIC INTEGRATED MATH MODEL 

(TCIMM) 

PART H - PROGRAM FILE ELEMENT TABLE OF CONTENTS 


The next several pape6 contain the program file table of contents , also know as the 
PRT,T index. The table is printed when called for by a ATPRT, T control card. The 
output contains the "element table," "procedure tables," and, if a ATPREP card 
has preceeded the PRT card, the "entry point table." 


The column headings given at the beginning of the element table have the following 
meanings: 


D-FLAG 

NAME 

VERSION 

TYPE 

DATE, TIME 

SEQUENCE 

NO. 

PRE-SIZE 

TEXT -SIZE 

CYCLE 

WORD 


LOCATION 


an asterisk means that the entry is deleted from the file, 
name of symbolic/relocatable/absolute element, 
version of element. 

if the element is symbolic , the processor which created it 
is indicated. 

time that element was added to the file . 

position of the element in the file. This is sequentially issued 
as elements are added to the file. 

for relocatable elements , the preamble length is given in 
sectors (28 words per sector). 

this is the text size in sectors. 

the cycle word is broken up into three separate parameters; 
starting from left to right, they are: 

(1) the number of cycles the system will maintain 

(2) the number of the most current cycles 

. (absolute scale) 

(3) the number of cycles currently being maintained. 

refers to the sector position relating to the start of the file 
(1792 is the base). 
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It should be noted that the entry point table is fugitive in the sense that it must be 
recreated each time a change is made in the program , and is subject to the following 
constraints: 

(1) Destroyed when an update is made to any element in a program file. 

(2) Destroyed when program file is put on magnetic tape. 

(3) Is not re-established when file is copied from tape to drum. 

(4) Contains externalized labels. 

(5) Is created by the ATPREP statement which will prepare or re-establish 
an entry point table for a specified program file. 
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TABLE 0F C0NTENTS - FILE TCIMM. 


NAME 

VERSION 

TYPE 

DATE 



T!ME 

SEQ ft 

SIZE. 

PRE,TEXT 

(CYCLE 

1 

WORD) RSRMOOE 

LOCATION 

CACCUM 

- 

FOR PROC 

11 

MAR 

71 

01 

IS! 

t49 

1 


14 

0 

1 

1742 

CAPU 


FOR PROC 

11 

MAR 

71 

01 

til 

110 

2 


10 

1 

0 

1 

1806 

CCNFIG 


FOR PROC 

11 

MAR 

71 

01 

ill 

111 

1 


41 

1 

0 

J 

1816 

CCNTRL 


FOR PROC 

11 

MAR 

71 

01 

til 

|12 

4 


10 

1 

0 

L 

1899 

COCVCL 


FOR PROC 

11 

MAR 

71 

01 

l S 1 

112 

1 


10 

1 

0 

.1 

1909 

CENG 


FOR PROC 

11 

MAR 

71 

01 

til 

1 14 

6 


10 

1 

0 

1 

1919 

cflrat 


FOR PROC 

11 

MAR 

71 

01 

ill 

|14 

7 


1 

1 

0 

1 

1929 

CFUflD 

1 

FOR PROC 

11 

MAR 

71 

01 

«SI 

1 14 

8 


1 

1 

0 

1 

1412 

CHEX 


FOR PROC 

11 

MAR 

71 

Of 

til 

111 

4 


22 

1 

0 

1 

1411 

.O'TX 

, 

FOR PROC 

11 

MAR 

71 

01 

ill 

1 16 

to 


4 

1 

0 

1 

1911 

chsorc 


FOR rfiOC 

11 

MAR 

71 

01 

til 

117 

1 1 


11 

1 

0 


1919 

ciount 


FOR PPOC 

11 

MAR 

71 

01 

tSI 

1 17 

12 


1 


0 

1 

1972 

.ckeys 


FOR PROC 

11 

MAR 

71 

01 

til 

1 18 

11 


1 

1 

0 

1 

1477 

cmatrl 


FOR PROC 

11 

MAR 

71 

01 

til 

1 18 

14 


17 

1 

0 

1 

1978 

CMOTOR 


FOR PROC 

11 

MAR 

71 

01 

111 

ill 

11 


2 

1 

0 

J 

I4RB 

CONST 


FOR PROC 

11 

MAR 

71 

01 

|12 

too 

16 


2 

1 

0 

1 

I9AT 

CPAGE 


FOR PROC 

11 

MAR 

71 

01 

112 

too 

17 


8 

1 

0 

1 

1999 

CPUMP 

! 

FOR PROC 

11 

MAR 

71 

01 

|12 

lOI 

18 


20 

1 

0 

l 

2007 

CSYSWT 


FOR PROC 

11 

MAR 

71 

01 

|12 

■ Of 

(4 


6 

1 

0 

1 

2027 

CTAR 


FOR PROC 

11 

MAR 

71 

01 

tS2 

1 02 

20 


10 

1 

0 

1 

2011 

ctaba 


FOR PP.OC 

11 

MAR 

71 

01 

t12 

102 

21 


2 

1 

0 

J 

2041 

ctank 


FOR pane 

11 

MAR 

71 

01 

|12 

101 

22 


19 

I 

0 

1 

2041 

CTURBN 

1 

FOR PROC 

11 

MAR 

71 

01 

112 

101 

2V 


11 


0 

l 

2064 

DUMMY 


FOR PROC 

11 

MAR 

71 

01 

t12 

104 

24 


1 

1 

0 

I 

2077 

SPUMP 

1 

FOR PROC 

11 

MAR 

71 

01 

|12 

104 

21 


2 

1 

0 

) 

2080 

TABLOK 


FOR PROC 

11 

MAR 

71 

01 

t12 

1 06 

26 


1 

1 

0 

1 

2082 

Tankwt 


FOR PROC 

11 

MAR 

71 

01 

|12 

1 06 

27 


1 

1 

0 

1 

2081 

ACCFES 

! 

relocatable 

11 

MAR 

71 

01 

t12 

109 

28 

1 

1 




2086 

ACCRES 


FOR SYMB 

11 

MAR 

71 

01 

|12 

i OR 

29 


7' 

1 

0 

1 

2090 

ACQWT 


RELOCATABLE 

11 

MAR 

71 

01 

H2 

ill 

10 

2 

1 




2097 

acqwt 


FOR SYMB 

11 

MAR 

71 

01 

|12 

HI 

11 


10 

1 

0 

1 

2102 

alphab 


RELOCATABLE 

11 

MAR 

71 

01 

|12 

ill 

12 

1 

1 




2112 

ALPHaB 

} 

FOR SYMB 

11 

MAR 

71 

01 

|12 

1 11 

11 


1 

1 

0 

i 

2114 

APUFUO 


RELOCATABLE 

11 

MAR 

71 

01 

H2 

120 

14 

1 

11 




2117 

apuflo 


FOR SYMB 

11 

MAR 

71 

01 

t12 

1 20 

11 


11 

1 

0 

i 

2111 

APUSUP 

I 

RELOCATABLE 

11 

MAR 

71 

01 

t12 

|4R 

16 

1 

100 
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APUSUP 


FOR SYM8 

n 

MAR 

Tl 

01 

tS2 

41 

17 


!S6 

S 

0 t 

2271 

betab 


RELOCATABLE 

n 

MAR 

71 

01 

tS2 

S2 

18 

1 

1 



2427 

betab 


FOR SYM3 

1 1 

MAR 

71 

01 

|S2 

S2 

11 


S 

s 

0 1 

2411 

CPTW 


RELOCATABLE 

n 

MAR 

71 

ot 

tS2 

IS 

40 

t 

9 



241S 

CFTW 


FOR SYMB 

n 

MAR 

71 

01 

tS2 

ss 

4 1 


7 

s 

o i 

2446 

comflo 


RELOCATABLE 

1 1 

MAR 

71 

01 

i S 1 

18 

42 

2 

IS 



24S1 

COMFLO 


FOR SYMB 

n 

MAR 

71 

01 

iSI 

18 

41 


2S 

s 

0 t 

2470 

CONSUM 


RELOCATABLE 

n 

MAR 

71 

01 

lS4 

os 

44 

2 

2 



249S 

CONSUM 


FOR SYMB 

n 

MAR 

71 

01 

t S4 

OS 

4S 


1 

s 

o i 

2499 

CPHI 


RELOCATABLE 

n 

MAR 

71 

01 

|S4 

to 

46 

2 

6 



2S02 

CPHI 


FOR SYMB 

n 

MAR 

71 

01 

tS4 

1 1 

47 


S 

s 

o i 

2SI0 

.CPIC 


RELOCATABLE 

n 

MAR 

71 

01 

t S4 

11 

48 

2 

S 



2S IS 

CPIG 


FOR SYtlB 

1 1 

MAR 

71 

0 1 

1 S4 

11 

41 


6 

s 

0 1 

2S22 

CPS! 


RELOCATABLE 

n 

MAR 

71 

01 

«S4 

IS 

SO 

2 

6 



2S28 

CPS! 


FOR SYMB 

13 

MAR 

71 

01 

|S4 

IS 

SI 


S 

s 

o i 

2S16 

CPVTOB 


RELOCATABLE 

11 

MAR 

71 

01 

1 S4 

18 

S2 

1 

1 



2S4| 

CPVTDB 


FOR SYMB 

11 

MAR 

71 

0! 

tS4 

18 

SV 


1 

s 

0 1 

2S4S 

CPVTO 


RELOCATABLE 

11 

MAR 

71 

01 

|S4 

21 

S4 

2 

6 



2S4 8 

.CPVTO 


FOR SYMB 

11 

MAR 

71 

01 

1 S4 

21 

ss 


6 

s 

o i 

2SS0 

CRYCON 


RELOCATABLE 

11 

MAR 

71 

01 

tS4 

2S 

ss 

1 

9 



2S64 

CRYCON 


FOR SYMB 

11 

MAR 

71 

01 

tS4 

2S 

ST 


IS 

s 

0 1 

2S76 

CSPF2I 


RELOCATABLE 

11 

MAR 

71 

01 

lS4 

27 

SB 

1 

S 



2S9I 

CSPF2I 


FOR SYMB 

11 

MAR 

71 

01 

i S4 

27 

SI 


4 

s 

o i 

2S9T 

CSUBP 


RELOCATABLE 

11 

MAR 

71 

01 

|S4 

10 

60 

2 

8 



2S0I 

CSUBP 


FOR SYMB 

11 

MAR 

71 

ot 

|S4 

10 

61 


It 

s 

0 t 

261 1 

CSUBPV 


RELOCATABLE 

11 

MAR 

71 

01 

1 S4 

12 

62 

2 

4 



2622 

CSURPV 


FOR SYMB 

11 

MAR 

71 

01 

|S4 

12 

61 


S 

s 

0 1 

2628 

CSURP 1 


RELOCATABLE 

11 

MAR 

71 

ot 

1 S4 

IS 

64 

1 

1 1 



2611 

CSUBP 1 


FOR SYMB 

11 

MAR 

71 

ot 

1 S4 

IS 

6S 


17 

s 

0 I 

264S 

CSUBV 


RELOCATABLE 

11 

MAR 

71 

01 

1 S4 

18 

66 

2 

6 



2662 

.CSUBV 


FOR SYMB 

11 

MAR 

71 

01 

tS4 

18 

67 


9 

s 

0 1 

2670 

DATAN2 


RELOCATABLE 

11 

MAR 

71 

01 

1 S4 

41 

68 

1 

16 



2679 

DATAN2 


FOR SYMB 

11 

MAR 

71 

01 

I *54 

41 

61 


16 

s 

0 ] 

2698 

DATA02 


relocatable 

11 

MAR 

71 

01 

|S4 

48 

70 

1 

16 



2714 

0ATA02 


FOR SYMB 

11 

MAR 

71 

01 

1 S4 

48 

71 


IS 

s 

0 1 

27S1 

OCALC 


RELOCATABLE 

11 

MAR 

71 

01 

ISS 

Ot 

72 

1 

IS 



2788 

OCAUC 


FOR SYMB 

tl 

MAR 

71 

01 

»ss 

02 

71 


16 

s 

o i 

2804 

DENSON 


RELOCATABLE 

11 

MAR 

71 

01 

iSS 

08 

74 

2 

1 



2820 

DENSON 


FOR SYMB 

11 

MAR 

71 

01 

iSS 

08 

7S 


S 

s 

0 ! 

2R2S 

DFNDB 


RELOCATABLE 

11 

MAR 

71 

01 

|SS 

to 

76 

1 

1 



2R10 

dfnob 


FOR SYMB 

11 

MAR 

71 

ot 

|SS 

10 

77 


1 

s 

o V 

2814 

dfno 


RELOCATABLE 

11 

MAR 

71 

01 

«ss 

12 

'78 

2 

1 1 



2817 

DFflD 


FOR SYMB 

11 

mar 

71 

ot 

»ss 

11 

71 


9 

s 

o i 

28S0 

DIAG 


RELOCATABLE 

11 

MAR 

71 

01 

iSS 

IS 

80 

1 

S 



28S9 

DIAG 


FOR SYMB 

11 

MAR 

71 

01 

TSS 

IS 

S 1 


1 1 

s 

0 1 

286S 

DPDOB 


RELOCATABLE 

11 

MAR 

71 

01 

iSS 

IS 

82 

1 

1 



2876 

DPDDB 


FOR SYMB 

11 

MAR 

71 

01 

iSS 

IS 

81 


1 

s 

0 1 

2880 

DPDD 


RELOCATABLE 

11 

MAR 

71 

01 

iSS 

21 

84 

2 

ts 



2881 

DPDO 


FOR SYMB 

11 

MAR 

71 

01 

iSS 

21 

8S 


12 

s 

0 t 

2900 

DPDTB 


RELOCATABLE 

11 

MAR 

71 

01 

iSS 

22 

86 

1 

2 



2H2 

DPDTB 


FOR SYMB 

11 

MAR 

71 

ot 

«ss 

22 

8T 


2 

s 

0 I 

29 1 S 

DPDT 


RELOCATABLE 

1 1 

MAR 

71 

01 

tSS 

2S 

88 

2 

12 



29 1 T 

DPDT 


FOR SYMB. 

11 

MAR 

71 

01 

tSS 

27 

81 


1 1 

s 

o i 

2«1l 

DPDTVP 


RELOCATABLE 

11 

MAR 

71 

01 

tSS 

It 

90 

2 

6 



2942 

DPOTVP 


FOR SYtlB 

11 

MAR 

71 

01 

«ss 

1! 

91 


S 

s 

o i 

29S0 

DSATL 


RELOCATABLE 

11 

MAR 

71 

01 

tSS 

11 

92 

2 

4 



29SS 

dsatl 


FOR SYMB 

11 

MAR 

71 

ot 

tSS 

31 

91 


S 

s 

o i 

2961 

dsatv 


RELOCATABLE 

1 1 

MAR 

71 

n I 

• SB 

iUn 

on 

9 

u 
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I 


D5ATV i 

FOR SYMB 

11 

MAR 

Tl 

01 

111 

Nf 

91 


1 


o i 

2972 

ENGINE 

RELOCATABLE 

11 

MAR 

71 

01 

|96 

II 

96 

1 

XT 



2977 

ENGINE 

FOR SYMB 

11 

MAR 

Tl 

01 

|96 

It 

97 


22 

9 

o i 

2997 

FlNOR 

RELOCATABLE 

11 

MAR 

71 

01 

|S6 

11 

98 

1 

1 



1019 

FINOR 

FOR SYMB 

11 

MAR 

71 

01 

»96 

17 

99 


2 

9 

o i 

1027 

FINGi 

RELOCATABLE 

11 

MAR 

71 

01 

|96 

16 

100 

2 

19 



7029 

FINGI 

FOR SYMB 

tl 

MAR 

71 

01 

* *5 6 

16 

101 


12 

9 

o i 

ION 1 

FINGa 

RELOCATABLE 

11 

MAR 

71 

01 

|S6 

20 

f 02 

2 

19 



7097 

FING2 

FOR SYMB 

(1 

MAR 

71 

01 

|S6 

20 

101 


II 


o i 

1069 

FINGI 

RELOCATABLE 

11 

MAR 

71 

01 

|S6 

29 

109 

2 

19 



1080 

FINGI 

FOR SYMB 

11 

MAR 

71 

01 

|96 

29 

101 


12 

9 

0 1 

1096 

F INTAB 

RELOCATABLE 

11 

MAR 

71 

01 

|96 

2T 

106 

2 

9 



11 OB 

FINTaB 

FOR SYI1B 

11 

MAR 

71 

01 

1 16 

27 

107 


12 

9 

o 'i 

1119 

FUORaT 1 

RELOCATABLE 

11 

MAR 

71 

01 

1 16 

72 

108 

1 

22 



1111 

FLORaT 

FOR SYMB 

11 

MAR 

71 

Of 

t16 

11 

109 


28 

9 

0 1 

1196 

FLOOEQ 1 

RELOCATABLE 

11 

MAR 

Tl 

01 

t16 

79 

1 to 

t 

1 



1 1 8M 

F.LOBEQ 

FOR SYMB 

11 

MAR 

71 

01 

:16 

79 

lit 


8 

9 

0 | 

1188 

gasgen 

RELOCATABLE 

11 

MAR 

71 

01 

|17 

10 

1 12 

2 

10 



1196 

gasgen 1 

FOR SYMB 

11 

MAR 

71 

01 

1 17 

10 

111 


IS 

9 

o i 

1208 

GETCON 

RELOCATABLE 

11 

MAR 

71 

01 

1 17 

19 

1 19 

2 

9 



1221 

getcon , 

FOR SYMB 

n 

MAR 

71 

01 

1 17 

19 

1 fl 


8 

9 

0 1 

1229 

gomtry 

RELOCATABLE 

ii 

MAR 

71 

01 

tIT 

IB 

1 16 

1 

28 



1217 

GONTRY 

FOR SYMB 

n 

MAR 

71 

01 

|17 

tB 

1 17 


19 

9 

0 1 

1268 

HEATEX [ 

RELOCATABLE 

n 

MAR 

71 

01 

(17 

70 

118 

1 

67 



1282 

HEATEX 

FOR SYMB 

n 

MAR 

71 

01 

|17 

11 

119 


*9 


o i' 

1192 

HEXEtC 

RELOCATABLE 

n 

MAR 

71 

01 

«17 

16 

120 

2 

19 



1UM| 

hexelc , 

FOR SYMB 

ii 

MAR 

71 

01 

|17 

16 

121 


29 

9 

o i 

1997 

HTLEAK 

RELOCATABLE 

ii 

MAP 

71 

01 

1 17 

92 

122 

1 

1 



198 1 

htleak 

FOR SYMB 

ii 

MAR 

71 

01 

t17 

92 

121 


2 

9 

o i 

1981 

HPTCP 

RELOCATABLE 

n 

MAR 

71 

01 

■ 17 

99 

129 

1 

2 



1989 

HPTCP 

FOR SYMB 

n 

MAR 

71 

01 

»17 

91 

121 


1 


. o i 

1988 

HPTCV 

RELOCATABLE 

ii 

MAR 

71 

01 

»17 

96 

126 

1 

2 



1991 

HPTCV 

FOR SYMB 

n 

MAR 

71 

01 

|17 

96 

127 


1 

9 

o T 

1999 

HPTGAM 

RELOCATABLE 

n 

MAR 

71 

01 

t17 

98 

128 

1 

2 



199T 

hptgam 

FOR SYMB 

n 

MAR 

71 

01 

(17 

98 

129 


1 

9 

o i' 

1900 

HPW 

RELOCATABLE 

n 

MAR 

71 

01 

*17 

10 

no 

1 

1 



1901 

HPW 

FOR SYMB 

n 

MAR 

71 

Of 

1 1 7 

10 

111 


9 


o i 

1909 

HVAP 

RELOCATABLE 

n 

MAR 

71 

01 

:17 

11 

172 

1 

8 



1909 

HVAP 

FOR SYMB 

ii 

MAR 

71 

Of 

1 17 

IS 

111 


1 

9 

o i 

19 18 

hyenth 

RELOCATABLE 

n 

MAR 

71 

01 

I IB 

10 

119 

1 

89 



1921 

HYENTH 

FOR SYMB 

n 

MAR 

71 

01 

*18 

1 1 

111 


117 

9 

o i 

1611 

INTAB 

RELOCATABLE 

n 

MAR 

71 

01 

»19 

11 

116 

2 

17 



1790 

INTAB 

FOR SYMB 

n 

MAR 

71 

01 

|S9 

16 

117 


66 

9 

o i 

1809 

LIQRES 

RELOCATABLE 

n 

MAR 

71 

01 

119 

1 9 

118 

1 

9 



1BT9 

LIQRES 

FOR SYMB 

n 

MAR 

71 

01 

1 19 

19 

119 


1 1 

9 

0 1 

1A80 

locate 

RELOCATABLE 

ii 

MAR 

71 

01 

»19 

27 

190 

2 

9 



1891 

locate 

FOR SYMB 

1 1 

MAR 

71 

01 

|19 

21 

19 1 


11 

9 

o i 

1902 

.LPROPB 

RELOCATABLE 

ii 

MAR 

71 

01 

|19 

26 

192 

1 

6 



19|9 

lpropb 

FOR SYmB 

ii 

mar 

71 

01 

1 19 

26 

191 


9 

9 

0 1 

1922 

LPROP 

RELOCATABLE 

n 

MAR 

71 

01 

*19 

29 

199 

2 

17 



1926 

.LPROP 

FOR SYMB 

n 

MAR 

71 

01 

1 19 

70 

191 


8 

9 

o i 

1991 

lheght 

RELOCATABLE 

n 

MAR 

71 

021001 

22 

196 

2 

16 



1999 

lweght 

FOR SYMB 

ii 

MAR 

71 

02»00 j 

21 

197 


29 



1967 

hathax 

RELOCATABLE 

ii 

MAR 

71 

02 1 00 I 

91 

198 

9 

29 



1991 

hathax 

FOR SYMB 

ii 

MAR 

71 

02 1 00 1 

92 

199 


10 

9 


9029 

flIPE 

RELOCATABLE 

n 

MAR 

71 

02i00» 

97 

110 

2 

21 



9099 

MIPE 

FOR SYM8 

n 

MAR 

71 

02 1 00 1 

97 

HI 


28 

9 


MOTT 

NIENTH- 

RELOCATABLE 

n 

MAR 

71 

02t00« 

99 

(12 

1 

2 



MIOB 


1 
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B-342 


nienth 

FOR SYMB 

11 MAR 

71 

ostoomi 

151 


2 

5 

0 

I 

4108 

ONPROP 

RELOCATABLE 

H MAR 

71 

02 tOO iS2 

154 

2 

7 




4110 

ONPROP 

FOR SYMB 

11 MAR 

71 

02 i 00 t 52 

155 


8 

5 

0 

i 

4119 

OUTPUT 

RELOCATABLE 

11 MAR 

71 

02 1 0 1 «29 

156 

2 

21 




4127 

OUTPUT 

FOR SYMB 

11 MAR 

71 

02 1 0 1 (21 

!5T 


11 

5 

0 

i 

4150 

oxenth 

RELOCATABLE 

11 MAR 

71 

02 1 0 1 : 14 

158 

1 

2 




4161 

OXENTH 

FOR SYMB 

11 MAR 

71 

02 1 0 1 lit 

159 


2 

5 

0 

i 

4166 

PAGE 

RELOCATABLE 

11 MAR 

71 

o 2 toi»m 

160 

2 

7 




4 168 

PAGE 

FOR SYMB 

11 MAR 

71 

02 1 o t »4i 

161 


11 

5 

0 

i 

4177 

PARPMP 

RELOCATABLE 

11 MAR 

71 

02 1 0 1 |S2 

162 

1 

27 




4208 

parpmp 

FOR SYMB 

(1 MAR 

71 

02 to 1 tS2 

161 


41 

5 

0 

i 

4218 

PFNDB 

RELOCATABLE 

11 mar 

71 

02 1 0 1 tS7 

164 

1 

1 




<428 1 

PFNOB 

FOR SVMB 

1 3 MAR 

71 

02:01 :57 

165 


2 

5 

0 

i 

4285 

PFUD 

RELOCATABLE 

11 MAR 

71 

02 1 02 «0 1 

166 

2 

12 




<4287 

PFND 

FOR SYMB 

tl MAR 

71 

02 1 02 1 0 1 

167 


1 1 

5 

0 

j 

4101 

■PHIB 

RELOCATABLE 

11 MAR 

71 

02 ta 2 l 0 R 

168 

1 

2 




M1»2 

PHIB 

FOR SYMB 

11 MAR 

71 

02:02:04 

169 


1 

5 

0 


4 1 1 S 

PROPS 

RELOCATABLE 

11 MAR 

71 

02 1 02 1 10 

1 TO 

1 

6 




4118 

PROPS 

FOR SVMB 

11 MAR 

71 

02:02l 1 1 

ITt 


4 

5 

0 

1 

412S 

PROP 

RELOCATABLE 

11 MAR 

71 

02:02i IS 

172 

2 

20 




4129 

PROP 

FOR SYMB 

11 MAR 

71 

02:021 IS 

171 


21 

5 

0 

i 

4151 

psath 

RELOCATABLE 

11 MAR 

71 

02:02: |8 

174 

1 

to 




<4172 

psath 

FOR SYMB 

11 MAR 

71 

02:02:1* 

175 


IB 

5 

0 

i 

<*187 

ptdens 

RELOCATABLE 

11 MAR 

71 

02|02| 16 

176 

1 

72 




4401 

ptdens 

FOR SYMB 

11 mar 

71 

02:02t1T 

177 


70 

5 

0 

i 

4R7U 

ptheat 

RELOCATABLE 

11 MAR 

71 

02:02:S2 

178 

1 

14 




USRH 

ptheat 

FOR SYMB 

11 MAR 

71 

02:02:52 

179 


68 

5 

0 

i 

4579 

phthon 

relocatable 

11 MAR 

71 

02:01:16 

180 

2 

4 




<4647 

PHTHON 

FOR SYMB 

11 MAR 

71 

02:01:16 

181 


6 

5 

0 

i 

4651 

PVAPOR 

RELOCATABLE 

11 MAR 

71 

02:01:14 

182 

1 

16 




<4659 

PVAPoR 

FOR SYMB 

11 MAR 

71 

02:01:1M 

181 


7 

5 

0 

1 

4676 

rhqlio 

RELOCATABLE 

tl MAR 

71 

02:01:17 

184 

1 

1 1 




4681 

RHOLIQ 

FOR SYMB 

1 1 MAR 

71 

02:01:17 

185 


6 

5 

0 

1 

>4693 

SPhSEG 

relocatable 

11 MAR 

71 

02:01:41 

1 66 

2 

19 




>470 1 

SPHSEG 

FOR SYMB 

11 MAR 

71 

02 i 0 1 i 42 

187 


11 

5 

0 

1 

<4722 

SPHTOA 

RELOCATABLE 

11 MAR 

71 

02101151 

|88 

1 

■75 




4715 

SPHTOA 

FOR SYMB . 

tl MAR 

71 

02:01:54 

189 


81 

5 

0 

i 

481 1 

STOCON 

RELOCATABLE 

tl MAR 

71 

02:01:57 

190 

1 

1 




<48914 

STOCON 

FOR SYMB 

11 MAR 

71 

02:03*57 

191 


7 

5 

0 

i 

4898 

tboil 

RELOCATABLE 

11 MAR 

71 

02:06:55 

192 

i 

2 




<4905 

TBOIL 

FOR SYMB 

11 MAR 

71 

02:06:55 

191 


2 

5 

0 


<4908 

TCOND 

RELOCATABLE 

11 MAR 

71 

02:07:07 

194 

i 

17 




4910 

TCOND 

FOR SYMB 

11 MAR 

71 

02:07:07 

195 


22 

5 

0 

i 

4928 

TEL 

RELOCATABLE 

11 mar 

71 

02:07:15 

196 

2 

9 




4930 

TEL 

FOR SYMB 

11 MAR 

71 

02:07:16 

197 


15 

5 

0 

i 

4961 

temp 

relocatable 

11 MAR 

71 

02:07:45 

198 

1 

18 




<*976 

temp 

FOR SVMB 

11 MAR 

71 

02:07:45 

199 


15 

5 

0 

i 

>4993 

thetab 

RELOCATABLE 

11 MAR 

71 

02:07:48 

200 

1 

2 




5010 

thetab 

FOR SYMB 

11 mar 

71 

02:07:48 

201 


1 

5 

0 

i 

5011 

THKWTG 

RELOCATABLE 

11 MAR 

71 

02:08:0* 

202 

2 

16 




5016 

THKWTG 

FOR SYMB 

11 MAR 

71 

02:08:10 

201 


24 

5 

0 

i 

5019 

TKGEOM 

relocatable 

tl mar 

71 

02 :08 128 

204 

1 

20 




5058 

'TXGEOM 

FOR SYMB 

11 MAR 

71 

02:08:28 

205 


20 

3 

0 

i 

5081 

Tt'ELTB 

RELOCATABLE 

11 MAR 

71 

02:08:51 

206 

1 

2 




5101 

TMELTB 

FOR SYMB 

11 MAR 

71 

02 1 08 : 5 1 

207 


2 

5 

0 

i 

5 1 0<4 

tmelt 

RELOCATABLE 

tl mar 

71 

Q2 1 08 1 56 

208 

1 

5 




5106 

■tmelt 

FOR SYMB 

11 MAP 

71 

02:08:57 

209 


4 

5 

0 

i 

5112 

thkwta 

RELOCATABLE 

11 MAR 

71 

02:09:08 


2 

Ik 
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I 


tnkwta 

for symb 

tl 

MAR 

Tl 

02 

09 

08 

211 


46 

S 

0 

1 

SIS2 

TRAC 

RELOCATABLE 

11 

MAR 

71 

02 

09 

IS 

212 

i 

2 




S 1 98 

TRAC 

FOR SYMB 

11 

MAR 

71 

02 

09 

IS 

211 


2 

s 

0 

1 

S20I 

TSAT 

RELOCATABLE 

n 

MAR 

71 

02 

09 

22 

214 

i 

II 




S201 

TSAT 

FOR SYMB 

n 

MAR 

71 

02 

09 

22 

2IS 


7 

s 

0 

1 

S2IS 

tsath ' 

relocatable 

n 

MAR 

71 

02 

09 

12 

216 

i 

to 




saa 2 

TSATH 

FOR SYMB 

n 

MAR 

71 

02 

09 

11 

217 


18 

s 

0 

i 

sail 

TSiZEI 

RELOCATABLE 

n 

MAR 

71 

02 

09 

19 

218 

i 

17 




S2SI 

TSIzEl 1 

for Symb 

ii 

MAR 

71 

02 

09 

19 

219 


27 

s 

0 

1 

S2TI 

TSTART 

RELOCATABLE 

n 

MAR 

71 

02 

09 

41 

220 

i 

2 




S?98 

TSTART 

FOR SYMB 

ii 

MAR 

71 

02 

09 

41 

221 


1 

s 

0 

1 

S10I 

TURRN 

RELOCATABLE 

ii 

MAR 

71 

02 

09 

44 

222 

2 

6 




S104 

TURPN 

FOR SYMB 

n 

MAR 

71 

02 

09 

44 

221 


9 

s 

0 

1 

SI 1 2 

TVPB i 

RELOCATABLE 

ii 

MAR 

71 

02 

09 

46 

224 

1 

2 




S12I 

TVPB 

FOR SYMB 

ii 

MAR 

71 

02 

09 

46 

22S 


2 

s 

0 

1 

S124 

TVP 

RELOCATABLE 

ii 

MAR 

71 

02 

09 

46 

226 

2 

8 




S126 

TVP 

FOR SYMB 

n 

MAR 

71 

02 

09 

49 

227 


9 

s 

0 

1 

S116 

VARNAM 

RELOCATABLE 

n 

MAR 

71 

02 

09 

S4 

228 

6 

1 




S14S 

varham 1 

FOR SYMB 

n 

MAR 

71 

02 

09 

S4 

229 


6 

s 

0 

i 

S1S2 

vent 

RELOCATABLE 

n 

MAR 

71 

02 

10 

01 

210 

2 

44 




S1S8 

VENT 

FOR SYMB 

n 

MAR 

71 

02 

10 

01 

211 


47 

s 

0 

1 

S404 

VGVS 

RELOCATABLE 

n 

MAR 

71 

02 

10 

01 

212 

2 

6 




S4SI 

VGVS 

FOR SYMB 

n 

MAR 

71 

02 

10 

04 

211 


12 

s 

0 

i 

S4S9 

VPNB 1 

RELOCATABLE 

n 

MAR 

71 

02 

10 

06 

214 

1 

2 




S47I 

VPHB 

FOR SYMB 

n 

MAR 

71 

02 

10 

06 

21S 


2 

9 

0 

1 

S474 

VPN 

RELOCATABLE 

n 

MAR 

71 

02 

10 

07 

216 

2 

6 




S4T6 

VPN 

FOR SYMB 

n 

MAR 

71 

02 

10 

07 

217 


S 

s 

0 

i 

S484 

VPROPB 

RELOCATABLE 

n 

MAR 

71 

02 

10 

10 

218 

1 

6 




SU8R 

VPROPB 

FOR S^mB 

n 

MAR 

71 

02 

10 

10 

219 


4 

s 

0 

1 

S496 

VPROP 

RELOCATABLE 

ii 

MAR 

71 

02 

10 

12 

240 

2 

9 




ssoo 

VPROP 

FOR SYMB 

n 

MAR 

71 

02 

10 

12 

241 


6 

s 

0 

1 

SSI 1 

VSNOB 

RELOCATABLE 

n 

MAR 

71 

02 

10 

1 4 

242 

1 

1 




SSIT 

VSNOB 

FOR SYMB 

n 

MAR 

71 

02 

10 

14 

241 


1 

s 

0 

1 

SS2I 

VSND 

RELOCATABLE 

n 

MAR 

71 

02 

10 

16 

244 

2 

9 




SS24 

VSNO 

FOR SYMB 

n 

MAR 

71 

02 

10 

16 

24S 


8 

s 

0 

i 

SS IS 

HFINO 

RELOCATABLE 

ii 

MAR 

71 

02 

10 

19 

246 

1 

8 




SS41 

WPINO 

FOR SYMB 

n 

MAR 

71 

02 

10 

19 

247 


9 

s 

0 

i 

SSS2 

WTACC 

RELOCATABLE 

n 

MAR 

71 

02 

10 

22 

248 

2 

4 




SS6I 

wtacc 

FOR SYMB 

n 

MAR 

71 

02 

10 

22 

249 


10 

s 

0 

1 

SS67 

YLGINT 

RELOCATABLE 

ii 

MAR 

71 

02 

10 

2S 

2S0 

1 

16 




SS77 

YLGINT 

FOR SYMB 

ii 

MAR 

71 

02 

10 

as 

2SI 


42 

s 

0 

1 

SS94 

YLNTPP 

RELOCATABLE 

n 

MAR 

71 

02 

10 

27 

2S2 

| 

1 




S616 

Yl.NTRP 

FOR SYMB 

n 

MAR 

71 

02 

10 

27 

ZS1 


1 

s 

0 

i 

S618 

ZFINO 

RELOCATABLE 

n 

MAR 

71 

02 

to 

11 

2S4 

2 

IS 




S64I 

ZFIHO 

FOR SYMB 

ii 

MAR 

71 

02 

10 

12 

2SS 


11 

s 

0 

1 

S678 

zget 

RELOCATABLE 

n 

MAR 

71 

02 

10 

40 

2S6 

1 

2 




STII 

zget 

FOR SYMB 

n 

MAR 

71 

02 

10 

40 

2S7 


2 

s 

0 

1 

S7I4 

APUSUB 

RELOCATABLE 

m 

MAR 

71 

22 

09 

49 

•2S8 

4 

28 




S7I6 

APUSUB i 

FOR SYMB 

14 

MAR 

71 

22 

09 

49 

2S9 


44 

s 

0 

i 

S748 

CONTRL 

RELOCATABLE 

14 

MAR 

71 

22 

12 

12 

260 

1 

10 




S792 

contrl 

FOR SYMB 

14 

MAR 

71 

22 

12 

12 

■261 


11 

s 

0 

( 

1 

SROS 

'.CNAMES 

FOP PROC 

28 

MAR 

71 

00 

OS 

08 

262 


1 

1 

0 

SB 1 8 

tank 

RELOCATABLE 

28 

MAR 

71 

00 

14 

24 

261 

4 

161 




SR2I 

TANK 

FOR SYMB 

28 

MAR 

71 

00 

14 

2S 

264 


1ST 

s 

0 

i 

S9B6 

CECLSS 

FOR PROC 

28 

MAR 

71 

10 

11 

17 

26S 


19 

1 

0 

1 

6141 

CFUEU 

FOR PROC 

28 

MAR 

71 

1 0 

11 

19 

266 


11 

1 

0 

1 

6163 

cnpcal 

RELOCATABLE 

28 

MAR 

71 

10 

12 

04 

267 

6 

90 




6I7S 

CMPCAL 

FOR SYMB 

28 

MAR 

71 

10 

: 12 

04 

268 


126 

s 

0 

1 

6a7l 
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COMPIL 


RELOCATABLE 

28 

MAR 

71 

10l72tS2 

269 

6 

168 



6797 

COMPIL 


FOR SYMB 

28 

MAR 

n 

1 0 1 72 152 

270 


177 5 

0 

i 

6571 

stoota 


RELOCATABLE 

28 

mar 

77 

10t7Si47 

2? 1 

4 

78 



6708 

SToDTA 


FOR SYHB 

28 

MAR 

77 

1 0 1 75 144 

272 


107 5 

0 

i 

6787 

LSSCMP 


RELOCATABLE 

29 

MAR 

77 

04j24i |7 

277 

4 

52 



6890 

.LSSCMP 


FOR SYHB 

29 

MAR 

77 

04 1 24 1 14 

274 


71 5 

0 

i 

6946 

OTRTNS 


RELOCATABLE 

29 

MAR 

77 

04 1 26 102 

275 

7 

|4| 



7017 

otrtns 


FOR SVf'B 

29 

MAR 

77 

04 l 26 i 07 

276 


127 5 

0 

i 

7165 

ECLSS 


RELOCATABLE 

06 

APR 

77 

1 7 1 12 102 

277 

6 

190 



7292 

ECLSS 


FOR SYMB 

06 

APR 

77 

1 7i72l04 

278 


218 5 

0 

i 

7488 

FUELCL 


RELOCATABLE 

06 

APR 

77 

11|5||S2 

279 

5 

217 



7706 

FUELCL 


FOR SVMB 

06 

APR 

77 

1 1 15 1 i56 

280 


260 5 

0 

i 

7928 

HEXF2I 


RELOCATABLE 

06 

APR 

77 

1 7 152 lOO 

281 

1 

71 



8188 

HEXF2I 


FOR SYHB 

06 

Apr 

T7 

I7l52i00 

282 


IS 5 

0 

i 

8220 

NEXT AVAILABLE 

LOCATION- 











8275 

assembler procedure table EMPTY 











COBOL PROCEDURE 

TABLE EMPTY 













FORTRAN PROCEDURE TABLE 









D NAME 

LOCATION 

LINK d 

NAME 


LOCATION 

LINK 

D NAME 


location . 

LINK 

CACCUM 

SO 1 78 

1 

capu 



50570 

2 

CCNFIG 


51970 

7 

CCNTRL 

51174 

4 

COCYCL 



57454 

5 

CECLSS 


172006 

265 

CENG 

57714 

6 

CFLRAT 



5R0I4 

7 

C FLU 10 


54098 

8 

CFUEL 

172578 

266 

OIEX 



54126 

9 

CHSORC 


54854 

1 1 

CHTX 

54742 

10 

C JOUNT 



55218 

12 

CKEYS 


55758 

17 

CMATRL 

55386 

14 

CMOTOR 



55862 

15 

CNAMES 


162906 

262 

CONST 

559 18 

16 

CPAGE 



55974 

17 

CPUMP 


56198 

18 

CSYSWT 

56758 

19 

CTAB 



56926 

20 

CTABA 


57206 

21 

ctank 

57262 

22 

CTURBN 



5T794 

27 

DUMMY 


58158 

24 

SPUMP 

58242 

25 

TABLOK 



58298 

26 

TANKWT 


58726 

27 


ENTRY POINT TABLE EMPTY 



LMSC-A991396 


Appendix B 

THE CRYOGENIC INTEGRATED MATH MODEL 
(TCIMM) 

PART HI - CROSS REFERENCE OF PROGRAM FILE 

It is often of interest to know which subprograms call a specific routine in a given 
program sequence. This kind of information for program file TCIMM is presented 
in the following pages. An explanation of the XREF processes which generates the 
cross reference listing is given below. 

XREF (Cross Reference Listing of Relocatable Elements): The XREF processor 

generates a cross reference listing of all entry points and undefined symbols in the 
specified program file that has been PACKed and PREP'D. The names of the re- 
locatable elements are listed alphabetically. Beside each element name, the names 
of the element entry points are listed. Beside each entry point name, the names of 
all relocatable elements in the program file which reference this entry point are listed. 

An element entry point is the result of an assembly or compilation and specifies the 
location at which execution of the program element commences. A compiled FORTRAN V 
subroutine or function has one entry point corresponding to the name of the subroutine 
or function. An undefined symbol (or external reference) is the result of a subroutine 
call or reference to an array not contained within the element. Any external FORTRAN 
reference creates an undefined symbol. 


B-345 


LOCKHEED MISSILES & SPACE COMPANY 


B-346 


CR05S REFERENCE 0F FILE TCIMM. 


bxrefpxref 

ACCRES 

.XREF 

01 

(000017) 

(ACCRES) , CRYCON 

ACQWT 

01 

(000014) 

(ACQWT) fCRYCON 

AFl'NC 

01 

(0004146) 

(TKGEOM) t'TNKWTA 

ALPHAB 

01 

(000007) 

(ALPHAB) 

APUFLO 

01 

(000117) 

(APUFLO) , CONSUM 

APUSUB 

01 

(000707) 

(APUSUB) tCRYCON 

APUSUP 

01 

(001I7S) 

(APUSUP) tCRYCON 

ARACYL 

01 

(000617) 

(GOMTRY) fTKGEOHf TNKWTA 

AREAFR 

01 

(000660) 

(GOHTRY) fTKGEoM 

ARSPHR 

01 

(000727) 

(GOMTRY) fTKGEOHt TNKWTA 

BETAB 

01 

(OOOOS6) 

(BETAO) , ECLSS, FUELCL 

CFTW 

01 

(000111 ) 

(CFTW) , CMPCAL, LSSCMP 

• CMPCAL 

01 

(002671) 

(CltPCAU tCRYCON 

comflo 

01 

(000261) 

(COMFLO) fCMPCAL, LSSCMP 

COMPIL 

01 

(00SI42) 

(COMPIL) ,CONTRL 

CONE 

01 

(00024S) 

(GOMTRY) 

CONSUM 

01 

(000027) 

(CONSUM) ,CRYCON 

CPHI 

01 

(000101) 

(CPHI) ,VPROP 

CPIG 

01 

(000 101) 

(CPIG) , CPVTO 

CPSI 

01 

(000( 11) 

(CPSI) ,VPROP 

CPVTO 

01 

( 000 1 S7 ) 

(CPVTO! fVSUOfCPVTOB 

CPVTDB 

01 

(000040) 

(CpVTOB) fpHTH 0 N,CSU8pV 

CRYCON 

01 

(000202) 

(CRYCON) ,CONTRL 

CSPFZI 

01 

(000061) 

(CSPF2I) , FUELCL 

CSUBP 

01 

(OOOISI ) 

(CSUBP) .HEXELCfVGVS, APUSUB, COMFLO, APUSUP, ECLSS, FUELCL 

CSUBpV 

01 

(0000S6) 

(CSUBPV) , CSUBV, CSUBP 

CSUBP 1 

01 

(0001 IS) 

(CSUBP I ) ,GASGEN,F(.ORAT, APUSUB, CMPCALfAPUSUP, APUFLO 

CSUBV 

01 

(000111) 

(CSUBV) ,VGVS, TANK, COMFLO. ECLSS, APUSUP, FUELCL 

cylhed 

01 

( 000 16 u ) 

( 5PHSRG ) ,TKGEOM, THKWTA 

CYL'IQR 

01 

(000106) 

(GOMTRY) ,'TKGEOH 

CYuSPH 

01 

(000147) 

(GOMTRY) ,TKGEOM 

CYIISPH 

01 

(0004SI ) 

( SPHSEG ) , TKGEOM 

DATAN2 

01 

(0002S7) 

(DATAN2) ,PHTHON,ONPROP, DENSON, CSUBPV, BETAB 

DATA02 

01 

(00026S) 

(0ATA02) ,PHTHON,ONPROP, DENSON, CSUBPV, BETAB 

DCALC 

01 

(000274) 

(OCALC) »DFnD 

OEMSON 

01 

(OOOOS2) 

(DENSON) , LSSCMP, ECLSS, APUSUP, FUELCL 

OFUD 

01 

(00021 1 ) 

( DFNO j , PROP, LPROP, VPROP, VSNO, DFNDB 

DFNDB 

01 

( 000014 ) 

(DFNOB) , DENSON, CSUBPV 

DUG 

01 

(000062) 

(01 AG) ,HI PE, LWEGHT, LOCATE, TS1ZEI,VENT,6ETC0N,FL0RAT,F!NTAB, ENGINE, TANK, CRYCON, COMFLO 

DPDD 

01 

(000127) 

(DPDD) ,VSND, DPDDB, CPVTO 

DPDDB 

01 

(000014) 

(OPDOB) .PHTHON, BETAS 

DPDT 

01 

( 00027 1 ) 

(DPDT) ,DPDTB, CPVTO 

DPDT0 

01 

(000027) 

(DpOTB) , PHTHON, BETAS 

OPDTVP 

01 

(000)01 ) 

(OPDTVP) ,l.PROP,TVP 

osatl 

01 

(000060) 

(OSATL) ,DFNO 

dsatv 

01 

(00006^) 

( DSATV ) ,DFND 

eclss 

01 

(004406) 

(ECLSS) , CRYCON 

EUPSG 

01 

(000124) 

(SPHSEG) ,TKGEOM 

ENGINE 

01 

(000110) 

(ENGINE) , CONSUM 

ENTHOH 

01 

(000B60) 

(MATHAX) ,HEATEX,FLORAT 

FDMSTY 

01 

( 000S76 ) 

(MATHAX) »THKWTG,TSIZE! 

FI NOR 

01 

(000014) 

(FINOR) . , MATHAX, VENT, VGVS.TANK ^COMFLO, APUSUP 

FlflGI 

01 

(000122) 

(FINGI) , LPROP, VpROP 

FItIGZ 

cmr.i 

01 
n i 

(000114) 

i nnn-sD i * 

(FING2) , LPROP, VPROP 

iCTIlf!, t . TO V/TPt 
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F1NTAB 

Ot 

(000 1 61) 

(FINTAB) , PARPMP, MATHAX, LWEGHT, THKWTG, HEXELC, VENT, HEATEX, ENGINE, TANK, CMPCAL,ECLSS, APUSUP 
, FUELCL* APUFLO 

FLODEO 

01 

(oooom j 

(FLODEQ) 

♦:comflo 

FLORAT 

01 

(00051! ) 

(FLORAT) 

*CONSUM 

FRCONE 

01 

( 000422 ) 

(GOMTRY) 

•TKGEOM 

frhead 

01 

(000422) 

(SPHSEG) 

*TKGEOM 

fuelcl 

01 

(oos-jss) 

(FUELCL) 

♦ crycon 

gasgen 

01 

<00021 1 ) 

(GASGEN) 

*CMP CAL* APUSUP 

GETCON 

01 

<oooosi) 

(GETCON) 

*CMPCAL»LSSCMP. OTRTNS 

•GSDNST 

01 

( 000621 ) 

(MATHAX) 

, VENT, APUSUB, TANK, CMPCAL, FUELCL, ACCRES 

gszdns 

01 

(000650) 

(I1ATHAX) 

, VENT, TANK 

HEaTEX 

01 

(001742) 

(HEATEX) 

, TANK, CMPCAL, APUSUP 

HEXElC 

01 

( 000261 ) 

(HEXELC) 

*EClSS 

HEXF2I 

01 

(000751 ) 

(HEXF2I ) 

, FUELCL 

HFUNC 

,01 

(000504) 

(TKGEOM) 

,'TNKWTA 

•HPTCP 

01 

(000014) 

(HPTCP) 

,CSU 8 P 

HPTCV 

01 

(000014) 

(HPTCV) 

, CSUBV 

hptgam 

01 

(000014) 

(HPTGAM) 

,COMFLO 

HPW 

01 

(000006) 

(HPW) 


H5PHER 

01 

(000471 ) 

(GOMTRY) 

, TKGEOM 

HTLEAK 

01 

(000006) 

(HTLEAK) 


hvap 

01 

( 000 ( 10 ) 

(HVAP) 


HYEtlTH 

01 

(00062!) 

(HYENTH) 

,MATHAX, APUSUB, APUSUP, FUELCL 

INTAB 

01 

(001510) 

(INTAB) 

, CONTRL 

.LIQPES 

01 

( 000061 ) 

(LIORES) 

, CRYCON 

LOCAT 

loi 

(000167) 

(LOCATE) 

, MIPE 

.LPROP 

01 

(000254) 

(LPROP) 

.PROP, LPROPB, CPVTD 

.lpropb 

Ol 

(000071) 

(LPROPB) 


LSSCMP 

'01 

(001452) 

(LSSCNP) 

.ECLSS 

lweght 

01 

(000151) 

(LWEGHT) 

*CMpCAL»LSSCMp 

MIPE 

01 

(000506) 

(HIPE) , PARPMP , THKWTG, MATH AX, LWEGHT .HEXELC » VENT .HEATEX, ENGINE ,'TANK, CMPCAL »ECL5S» FUELCL 
„ * APUSUP » APUFLO 

NIENTH 

01 

( 000022 ) 

(NIENTH) 

, ECLSS 

OAPIISB 

01 

(001771) 

(OTPTNS) 

.APUSUB 

OAPUSP 

01 

(007766) 

(OTRTHS) 

.APUSUP 

ONPROP 

>01 

(000146) 

(ONPROP) 

.OXENTH, NIENTH, ZGET 

OPAPUF 

01 

(001761 ) 

(OTRTNS) 

.APUFLO . 

OPTPOW 

01 

( 001722 ) 

(OTPTNS) 

.ECLSS 

OTP ACC 

01 

(001742) 

(OTPTNS) 

,wtacc 

OTPACO 

01 

(001745) 

(OTRTNS) 

. ACQWT 

otpflt 

01 

(001751) 

(OTPTNS) 

.FLORAT' 

OTPFLX 

01 

(001756) 

(OTPTNS) 

.FLORAT' 

OTPHEX 

01 

(001711 ) 

(OTPTNS) 

,' CMPCAL, APUSUP 

OTPHKE 

01 

( 001 7 | 7 ) 

(OTRTNS) 

, ECLSS 

OTPHXF 

01 

(001714) 

(OTRTNS) 

.FUELCL 

OTPPMP 

01 

(001725) 

(OTRTNS) 

, CMPCAL 

OTPTRB 

01 

(001710) 

(OTRTNS) 

.CMPCAL 

OTPTSl 

01 

(001711) 

(OTRTNS) 

.TSIZEI 

OTPHSM 

lOI 

(001750) 

(OTRTNS) 

.CRYCON 

OTUNIT 

01 

(000512) 

(OUTPUT) 

, CONTRL 

OUTPA 

01 

(000425) 

(OUTPUT) 

.OTRTNS 

OUTPF 

01 

(000144) 

(OUTPUT) 

.OTRTNS 

OUTPFI 

01 

(000171 ) 

(OUTPUT) 

.OTRTNS 

OUTPI 

01 

(000402) 

(OUTPUT) 

.OTRTNS 

OUTPW 

01 

(000450) 

(OUTPUT) 

.OTRTNS 

OXENtH 

01 

( 000022 ) 

(OXENTH) 

.mathax. A pusuB. eclss. apusup, fuelcl 

PAGE 

01 

( 000121 ) 

(PAGE) , 

INTAD, ENG IHE, CONTRL, 01 AG, TANK, CMPCAL. COMPIL.LSSCMP, OTRTNS, ECLSS, FUELCL 

PARPMP 

01 

(000600) 

(PARPMP) 

.cmpcal 
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PFfjD 

Ot 

(000251) 

(PFNO) .PFnDB, LPROP. VPROP. DCALC.CPVTO 

pfndb 

01 

(000050) 

(PFNOB) 

PHIB 

01 

(000012) 

(PHIB) , PHTHON 

PHTHON 

01 

(000100) 

(PHTHON) .ECLSS, APUSUP.FUELCL 

PROP 

01 

(000574 ) 

(PROP) tPROPB 

PROPS 

01 

(000075) 

(PROPS) .ONPROP 

PSATH 

01 

(000122) 

(PSATH) » APUSUB 

PTpENS 

01 

<000551 ) 

(PTOENSj * IF I HO 

ptheat 

01 

(000671 ) 

(PTHEAT) .tiPTCPf HPTCV.HPTGAH 

PUMPEP 

01 

(000522) 

(MATHAX) .parpmp 

PVAPoR 

01 

(000516) 

(PVAPOR) . ZEIfJO 

RHOLIQ 

01 

(000205) 

(RHOLIQ) .MATHAX, VENT, FLOPAT, APUSUB, TANK, CMPCAL 

RVM1PE 

01 

(000521 ) 

(MIPE) 

SPACE 

01 

(000507) 

(OUTPUT) ,OTRTMS 

sphere 

01 

(000544) 

(GOMTRV) .tnkwta 

sphseg 

01 

(000266) 

(SPHSEG) , TNKWTA 

Stocon 

01 

(000040) 

(STOCON) .COMPIL 

stopta 

01 

(000006) 

(STODTA) ,contrl 

tAHK 

01 

(005716) 

(TANK) ,CRVCON 

TBOIL 

01 

(000014) 

(TBOIL) , HVAP 

tcohd 

01 

(000571 ) 

(TCONP ) , APUSUB, APUSUP, ECLSS, FUELCL 

tcrcal 

01 

(000527) 

(MATHAX) .HEATEX 

tcrclc 

01 

(000700) 

(MATHAX) ,HEATEX 

TCRLOW 

01 

(000715) 

(MATHAX) .HEATEX 

TCRRAZ 

01 

(000746) 

(MATHAX) , HEATEX' 

TEL 

01 

(000161 ) 

(TEL) .MIPE 

TEMP 

01 

(000521 ) 

(TEMP) .THELT 

thetab 

01 

(000012) 

(THETAB) .PHTHON 

THKWTG 

01 

(000521) 

(TIIKWTG) .TNKWTA 

thelt 

01 

(000077) 

(THELT) .TMELTB 

tmeltb 

01 

(000021 ) 

(TMELTB) 

tnkwta 

01 

(001057) 

(TNKWTA) .TSIZEI .WTACC 

TRAC 

01 

(000015) 

(TRAC) 

TSAT 

01 

(000214) 

(TSAT) , HEATEX, VENT.TANK 

tsath 

01 

(000122) 

(TSATH) 

tsizei 

01 

(000416) 

(TSIZEI) .CRYCON 

Tstart 

01 

(000014) 

(TSTART) .HVAP 

turbn 

01 

(000105) 

(TURBN) .CMPCAL 

TVP 

01 

(000116) 

(TVP) .TVPB 

TVPB 

01 

(000020) 

(TVPB) . 

VaRNaM 

01 

(000001) 

(VARNAM) 

ve n t 

01 

(001105) 

(VENT) »ta n k 

VFUNC 

01 

(000410) 

(TKGEOM) .TNKWTA 

VGVS 

01 

(000106) 

(VGVS) , CMPCAL, LSSCNP 

VPN 

01 

(000104) 

(VPN) . PROP »LPROP« TVP, VPNb.VSNQ.OFNO 

VPNB 

01 

(000020) 

(VPNB) 

VPROP 

01 

(000157) 

(VPROP) .prop.lprop.vpropb 

VPROPB 

01 

(000075) 

(VPROPB) 

VSNO 

01 

(000145) 

(VSHD) .VSNDB 

VSNDB 

01 

(000016) 

(VSNOB) 

WE I NO 

01 

(000 1 24 ) 

(WFINP) .TEMP 

WOUACL 

01 

(000726) 

(MATHAX) .HEATEX 

wtacc 

01 

(000062) 

(WTACC) .CRYCON 

ylgint 

01 

(000405 ) 

(YLGINT) ,TEL 

VLMTRP 

01 

(000007) 

(Y.LflTP.P) 

. ZFIND 

01 

(000456) 

(ZFIND) .MATHAX, VENT, APUSUB.TANK. APUSUP.FUELCL 

ZGET 

**OONE** 

01 

(000022) 

(ZGET) .FUELCL.APUSUP.ECLSS. APUSUB 


c m +\ 
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